AOPTN CROS5REF 

A21B TITLE ABSOLUTE LOADER FOR CURRENT SYSTEMS SIMULATORS' 



ABSOLUTE LOADER PROGRAM 
FOR 

IBM SYSTEM/360 SIMULATOR FOR THE IBM 1620 
INTRODUCTION 

THIS PROGRAM LOADS THE ASSEMBLED PROGRAMS INTO SYSTEM/360 MAIN 
STORAGE AT THE ADDRESSES ASSIGNED BY THE ASSEMBLER, THEN, CONT- 
ROL IS TRANSFERRED TO A GIVEN SECTION FOR EXECUTION OF THE PRO- 
GRAM LOADED. 

THE ABSOLUTE LOADER ALSO ALLOWS THE USER TO MAKE CERTAIN ADDITIONS 
OR CORRECTIONS TO THE SIMULATOR AT THE TIME OF LOADING. 

THE ABSOLUTE LOADER USES TWO CONTIGUOUS BUFFERS OF 120 BYTES AND 
80 BYTES RESPECTIVELY. THESE BUFFERS PRECEDE THE ABSOLUTE LOADER 
PROGRAM. AT THE TIME OF LOADING, THE FIRST BUFFER RECEIVES THE 
DATA TO BE LOADED AT ADDRESSES 0 TO 128. THIS BUFFER REPRESENTS 
THE PSW ZONE. THE SECOND BUFFER IS AN INPUT BUFFER WHICH PARTLY 
OVERLAYS THE AREA OF THE INITIALIZATION ROUTINE. 



* 

* 

* 



AZ10001Q 
A2100020 
A2100030 
A21G0040 
A2100050 
A2100060 
A21GG070 
A2100C30 
A2100090 
A2100100 
A2I00110 
A2100120 
A2100130 
A2100140 
A2100150 
A2100160 
A2100170 
A21Q0180 
A2100190 
A2100200 
A2100210 
A2100220 
A2100230 
A2100240 
A2100250 
A2100260 
A2100270 
A2100280 
A2100290 



THIS LOADER IS SPECIALLY DESIGNED TO LOAD THE FOLLOWING PROGRAM S= ^H&1M3$5" 



CONTROL PROGRAM 
I/O SUPPORT PACKAGE PROGRAM 
SYSTEM/360 INITIALIZATION PROGRAM 
RELOCATING LOADER PROGRAM 
AN LDR CARD IS PLACED BETWEEN THE END CARD OF THE I/O SUPPORT 
PACKAGE PROGRAM AND THE 1ST CARD OF THE INITIALIZATION PROGRAM. 
THE LAST CARD IN THE DECK IS AN LDT CARD. 

CONTROL IS GIVEN TO THE ABSOLUTE LOADER AT THE END OF THE IPL 
PROCEDURE. THE CPU PROCEEDS UNDER CONTROL OF THE PSW FETCHED FROM 
LOCATION 0. THIS PSW IS DISABLED FOR ALL INTERRUTIONS EXCEPT MA- 
CHINE CHECK INTERRUPTS. ITS ADDRESS FIELD CONTAINS THE ADDRESS OF 
ENTRY POINT TO THE ABSOLUTE LOADER. 

THE ABSOLUTE LOADER USES A THIRD BUFFER OF 8 BYTES, IN LOCATION 

LDBUFF, TO SAVE THE FOLLOWING DATA 

ADDRESS OF THE LAST BYTE OF THE CONTROL PROGRAM, WHICH IS 
THE CONTENTS OF LOCATION COUNTER AT THE TIME THE 1ST 
END CARD IS ENCOUNTERED. 
ADDRESS OF THE ENTRY POINT TO THE RELOCATING LOADER, WHICH 
IS THE CONTENTS OF ADDRESS FIELD IN THE LAST END 
CARD ENCOUNTERED. 



A2100310 ) 
A21G0320/ 
A2100330 
A2100340\ 
A21G0350 
A210G36Q 
A21G0370 
A210038£> 
A2103390 
A21G0400 
A2100410 
A210G420 
A2100430 
A2100W0 
A21GQ450 
A2100^ 
A2100470 
A2100^80 
A2100490 
A2100500 
A2100510 
A2100520 
A2100530 
A21Q0540 
AZ100550^ 



****** * A2100560 

* * AZ1QG590 

* .../.-• * A2100600 

* * A2100610 

* THE LOADER TRANSFERS THESE DATA AND THE CURRENT VALUE OF LOCATION * A21Q0620 

* COUNTER TO THE SYSTEM/360 INITIALIZATION PROGRAM. * A21GG630, 

* NOTE- LOCCTR CONTAINS THE ADDRESS OF THE LAST BYTE OF THE I/O * A21G064G( 

* SUPPORT PACKAGE PROGRAM. * A21Q065(* 

* * A21GG660 

* SINCE THE ABSOLUTE LOADER IS NOT A SELF-LOADING PROGRAM, THE LOAD- * A2100670 

* BIG FUNCTION IS OBTAINED BY INSERTING ONE PROGRAM LOADING CARD IN * A210G680 

* THE CARD DECK, AS DESCRIBED IN THE FOLLOWING. * A21QC690 

* * A210070CT 
********* ********* **************************************************** A2100710 

SPACE A2I00720 

******************************************^ A210Q730 

* * A2100740 

* SELF LOADING DECK STRUCTURE * A210075Q 

* * A210G76Q 

* IN ORDER TO EXECUTE THE LOADING FUNCTION, THE CARD DECK OF THE AB- * A210Q770 

* SOLUTE LOADER MUST CONTAIN THE FOLLOWING CARDS = * A2100780 

* * A2100790 

* - 1 INITIAL PROGRAM LOADING CARD - IPL * A210OSG0 

* - N TEXT CARDS - THESE CARDS ARE TAKEN FROM THE OBJECT DECK * A2IC0610 

* - 1 RLD CARD - OF THE ABSOLUTE LOADER. * A21G0320 

* - 1 END CARD - * A2I00330 

* * A210G840 

* THE IPL CARD IS PRODUCED AS OUTPUT BY THE BOS/360 ASSEMBLY * A2100850 

* PROGRAM AND HAS THE FOLLOWING FORMAT. * A21G0S60 

* * A2100870 

* COL I -8 f 00 04 00 00 00 A( ABSLOD ) T IPL PSW * A210GS80 

* COL 9 -16*02 ACABSLOD-16) 60 00 00 50 f READ CCW * A2100890 

* COL 17-24*02 AC BUFF ) 20 00 00 50' READ CCW * A2I00900 

* COL 65-72*40 40 40 40 C9 07 D3 40' IPL ID. * A2100910 

* COL 73-80 f CI F2 Fl C2 FO FO FO Fl v A21B0001 * A2100920 

* * A2100930 

* THE SELF LOADING DECK IS OBTAINED BY REMOVING FROM THE OBJECT * A2100940 

* DECK THE CARD PRECEDING THE CARD WITH IDENTIFICATION IPL IN * A2100950 

* COLU^S 69-71. * A2100960 

* * A2100970 
****************************** A2 100980 

EJECT A2100990 

ABSLOD START 26960 * A2101000 

BUFF EQU ABSLOD+256 INPUT BUFFER USED TO LOAD A2101010 

* * ABSOLUTE LOADER PROGRAM A2101020 
SPACE A2101030 

* * A2101050 

* 3 STATEMENTS FOLLOW WHICH DO NOT APPEAR IN THE SOURCE LISTING. * A2101060 

* THE FORMAT OF THESE INSTRUCTION STATEMENTS IS = * A2101070 

* * A21010SO 

* NAME OPERATION OPERAND COL. 71 * A2101090 

* * A2101100 



PRINT OFF 

PUNCH f CONTENTS OF IPL 

CONTENTS OF IPL 



CARD COLUMNS 1-55 
CARD COLUMNS 56-80 T 



THE PUNCH ASSEMBLER INSTRUCTION CAUSES THE DATA IN THE OPERAND 

* BE PUNCHED IN A CARD. THE OPERAND IS WRITTEN AS A STRING OF 

* CHARACTERS. THE POSITION IMMEDIATELY TO THE RIGHT OF THE 

* QUOTATION MARK IS REGARDED AS COLUMN 1 OF THE CARD TO BE PUNCHED. 

* 



NOTE- 



THE LOCATIONS SPECIFIED BY THE OPERAND OF THE PUNCH 
MENT DEFENDS ON THE ASSEMBLY LOCATION SPECIFIED 
OPERAND OF THE START STATEMENT. 



TO 
60 



STATE- 
BY THE 



SPACE 
PRINT OFF 
PUNCH * 



PRINT 
SPACE 



ON 



— & & S* 
IPL A21BG001 f 



DEFINITION OF PROGRAM STATUS WORDS * 
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SPACE 






PGOPSW 


EQU 


40 


PROGRAM OLD PSH 


IOOPSH 


EQU 


56 


I/O OLD PSW 


LDRCSN 


EQU 


64 


LOADER CSN 


LDRCAW 


EQU 


72 


LOADER CAI4 


EXNPSU 


EQU 


68 


EXTERNAL NEW PSW 


PGNPSI4 


EQU 


104 


PROGRAM NEW PSH 


MKNPSW 


EQU 


112 


MACHINE CHECK NEW PSH 


I0NPSH 


EQU 


120 


I/O NEW PSH 




EJECT 







ROUTINE TO LOAD THE ABSOLUTE LOADER 
ENTRY POINT= ABSL0D 

CONTROL IS GIVEN TO THIS ROUTINE AT THE END OF THE IPL PROCEDURE. 
AT THAT TIME= THE FIRST 56 BYTES ARE PLACED IN STORE (IPL CCW 1) 

THE CONTENTS OF SECOND TXT CARD IS STORED IN ONE 

INPUT BUFFER (BUFF). (IPL CO* 2). 
THE ROUTINE = 1. MOVE THE 56 BYTES OF TEXT FROM BUFF TO STORAGE. 

2. READ ONE CARD OR CARD IMAGE AND, UPON FINDING A 
TXT, END OR OTHER CARD PERFORMS OPERATION 1, 3, 
OR 2. 

3. TERMINATES THE LOADING PROCESS AND BRANCHES TO 
LOCATION LENTRY FOR EXECUTION OF THE ABSOLUTE 
LOADER PROGRAM. 

AFTERWARDS, THE STORAGE AREA OCCUPIED BY THIS ROUTINE IS OVERLAID 



A2101110 

A2101120 
A2101130 
A21Q1140 
A2101150 
A210I160 
A2101170 
A2101180 
A2101190 
A2101200 
A21012I0 
A2101220 
A2101230 
A2101240 
A2101250 
A2101260 
A2101270 
A2101280 
XA2101290 
A2101300 
A2101310 
A2101320 
A2101330 
A21G1340 
A2101350 
A2101360 
A2101370 
A2101350 
A2101390 
A21014G0 
A2101410 
A2101420 
A2101430 
A2101440 
A2101450 
A2101460 
A2101470 
A2101460 
A2101490 
A2101500 
A2101510 
A2101520 
A2101530 
A2101540 
A2101550 
A2101560 
A2101570 
A2101580 
A2101590 
A2101600 
A2101610 
A2101620 
A2101630 
A2101640 
A2101650 



IPLCTL 



IFLHVE 



SIO 



BUSY/ 



LDEND 



END 



* 
* 

* 
* 

* 
* 

* 
* 

* 
* 
* 



LBASRG,0 

*,LBASRG 

LM3I?G,BUFF+10 

LWK3RG,Q 

LWK3RG , IPLMVE+1 

L0CCTR,BUFF+4 

0Q,LOCCTR),BUFF+16 

LNK1RG,IPLCCW 

LWK1RG,LBRCAN 

LWK2RG,2 

0(LWK2RG) 

6, SIO 

1, WAIT 
0CLWK2RG) 

2, BUSY 
9, WAIT 

LBRCSW*4,XW 
8, BUSY 

LBRCSW*5,X r BF f 

5, WAIT 

LDRCSW+4,X v 83 f 
5, WAIT 
BUFF(4),TXT 
8, IPLCTL 
15, LDEND 

X f G2 f ,BUFF,X f 2G',80 

X f 02E3E7E3 f 

l,X*02 f 

0 

BUFF(4),END 
8,LENTRY 
15, SIO 
X'0ZC5D5tt f 
ABSLOD+336 



INITIALIZATION ROUTINE 



ENTRY POINT = GENTRY' 

THIS ROUTINE SETS PARAMETERS FOR MACHINE-CHECK AND PROGRAM INTER- 
RUPTIONS* 

WHEN A MACHINE-CHECK INTERRUPTION OCCURS, A PSW FOR WHICH I/O, EX- 
TERNAL AND FURTHER MACHINE CHECK INTERRUPTIONS ARE DISABLED, AND 
IN WHICH THE HA IT STATE BIT IS ONE, WILL BE LOADED- THE ADDRESS 
FIELD OF THIS PSN WILL CONTAIN ALL ZEROS. 

PROGRAM INTERRUPTION PROCESSING 

WHEN THE FIRST PROGRAM INTERRUPTION OCCURS A NEW PROGRAM PSU WITH 
I/O AND EXTERNAL INTERRUPTIONS DISABLED WILL BE LOADED. CONTROL 
WILL RETURN TO THE INSTRUCTION WITH ADDRESS CLEAR 3. THE ROUTINE 
WILL SET THE WAIT STATE BIT ON IN THE PROGRAM NEW PSW. ANY SUBSE- 



BYTE COUNT 
TEXT ADDRESS 

MOVE TEXT FROM CARD TO STORE 
READ CARD (IMAGE) CCW 

* 

PICK-UP IPL DEVICE ADDRESS 
SIO INPUT DEVICE 
CC= 1,2. BUSY OR CSW STORED 
CC= 3. ERROR, ENTER WAIT STATE. 
CC=0, OPERATION STARTED. 



C5W STORED. IS DE PRESENT 

NO, BRANCH. YES, 

IS ANY CHANNEL ERROR CONDITION 

* PRESENT. YES, ERROR, WAIT. NO, 
IS ATTENTION, UC OR UE PRESENT 

* YES, ERROR, WAIT. 

IS CARD READ A TXT CARD. 

* YES, GO TO PROCESS IT. 

* NO, BRANCH 

* READ CCW (80 BYTES) 
TXT CARD TYPE 

SET WAIT STATE BIT ON IN IPL PSW 

* AND LOAD IT. 

IS CARD READ THE ABSOLUTE LOADER 

* END CARD. YES, BRANCH TO LOADE 
NO, IGNORE CARD AND GET NEXT ONE 
END CARD TYPE 



******* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



A2101G60 
A2101670 
A21Q168Q 
A2101690 
A2I01700 
A2101710 
A2101720 
A2101730 
A2I0174D 
A2101750 
A210I760 
A2101770 
A2101780 
A2101790 
A2101800 
A2101810 
A2101820 
A21Q1830 
A2101S40 
A2101850 
A2101S60 
A2101870 
A210I880 
A2101890 
A2101900 
A21Q1910 
A2101920 
A2101930 
A21019^0 
A2101950 
A2101960 
A2101970 
A2101980 
A2101990 
A2102000 
A2102010 
A210202D 
A2102030 
A21G2030 
A2102050 
A21020G0 
A2102070 
A2102080 
A2102090 
A2102100 
A2102110 
A2102120 
A210213Q 
A2102140 
A2102150 
A2102160 
A2102170 
A2102180 
A2102190 
A2102200 



THE 



LOAD FROM THE INPUT 



* QUENT PROGRAM INTERRUPTION MILL CAUSE THE SYSTEM TO ENTER 

* WAIT STATE, ALL INTERRUPTS > EXCEPT MACHINE-CHECK, DISABLED. 

* IF THE FIRST PROGRAM INTERRUPTION RESULTS FROM AN ADDRESSING EX- 

* CEPTION (WORD OUTSIDE THE AVAILABLE STORAGE FOR THE PARTICULAR 

* INSTALLATION) CONTROL WILL RETURN TO THE INSTRUCTION WITH ADDRESS 

* CLEARS OTHERWISE THE PROGRAM NEW PSW WILL BE LOADED. 
* 

* 
* 
* 
* 
* 

* 



THE ROUTINE ADJUSTS THE READ ROUTINE TO 
DEVICE USED DURING THE LOADER IPL PROCEDURE. 



FINALLY THE ROUTINE SETS CORE STORAGE TO ZERO FROM LOCATION 18Q 
TO THE END OF STORAGE AVAILABLE EXCEPT FOR THE AREA OCCUPIED BY 
THE ABSOLUTE LOADER PROGRAM. 

THIS ROUTINE IS ENTERED ONCE DURING THE EXECUTION OF THE LOADER 
PROGRAM. THE STORAGE AREA OCCUPIED BY THIS ROUTINE IS OVERLAID BY 
THE INPUT BUFFER TO SAVE STORAGE SPACE. 



******************* 
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SPACE 








USING 


GETCRD-2G8,LBASRG 


* 


LENTRY 


BALR 


LBA5RG,Q 


* 


LBEGIN 


L 


LBASRG ,ALALFA-LBEGIN( 0 ,LBASRG ) LOAD BASE REGISTER 




XC 


EXNPSW(40),EXNPSW 


CLEAR NEW PSW AREA 




01 


KKNPSU+l,X f G6 f 


SET WAIT-MACH CHECK BITS ON 




HVC 


PGKPSW(8),PRGPSW 


BUILD UP PROGRAM NEW PSW 




LA 


LOCCTR,INITAD 


INITIALIZE LOCATION COUNTER 




SPACE 


1 




LENTRE 


HVC 
SPACE 


SI0RDR+2(2),2 
1 


PICK UP IPL DEVICE ADDRESS 


CLEARO 


LA 


LWK1RG,INITAD 


STARTING AND ENDING ADDRESSES 




L 


LWK2RG,ENDAD 


OF FIRST AREA TO BE CLEARED 


CLEAR1 


CLR 


LKK1RG,LNK2RG 


IS AREA CLEARED 




BC 


2,CLEAR2 


YES, BRANCH TO CLEAR2 


CLEAR 


XC 


0(256,LNK1RG),0(LWK1RG) 
LWK1RG , 256 ( LWK1RG ) 


NO, CLEAR 256 BYTES AT A TIME 
INCREMENT STARTING ADDR. BY 256 




LA 




BC 


15, CLEAR 1 


AND RESUME PROCESSING 


CLEAR2 


LA 


LHK2RG, CLEAR 0 


CALCULATE LENGTH OF 




SR 


LNK2RG,LNK1RG 


SECOND AREA TO BE CLEARED AND 




STC 


LWK2RG, CLEARS! 


STORE IT AND 




LR 


LWK2RG,LWK1RG 


STARTING ADDRESS 




LA 


LWK1RG,LDREND 


STARTING ADDR. OF THIRD AREA TO 




MVI 


CLEARl+3,X f G0 f 


BE CLEARED ( BETWEEN LOADER AND 




BC 


15,CLEARI 


END OF STORAGE AVAILABLE) 


CLEAR3 


01 


PGNPSW*1,X V G2* 


SET WAIT BIT FOR NEXT PR. INT. ON 




CLI 


PG0P5W+3,XW 


TEST IF ADDRESSING INTERRUPT. 




BC 


8,CLEAR4 


YES, BRANCH TO CLEAR4 




LPSW 


PGNPSW 


NO, LOAD PROGRAM NEM PSW 
CLEAR SECOND AREA 


CLEAR4 


XC 

SPACE 


GC0,LWK2RG),0(LNK2RG) 
2 



* 
* 

* 

* ENTRY POINT 



CARD ANALYSIS ROUTINE 
T GETCRD* 



* 
* 

* 
* 



A2102210 
A2102220 
A2102230 
A2102240 
A2102250 
A2102260 
A21G2270 
A2102280 
A21Q2290 
A21023G0 
A2102310 
A21G2320 
A21G2330 
A2102340 
A21G2350 
A2102360 
A2102370 
A2102380 
A21G2390 
A2102400 
A2102410 
A2102420 
A2102430 
A2102440 
A21G245G 
A2102460 
A21G2470 
A2102480 
A21G2490 
A2102500 
A2102510 
A2102520 
A21G2530 
A21Q2540 
A21D2550 
A21G2560 
A2102570 
A21D2580 
A2102590 
A21026GQ 
A2102610 
A2102620 
A2102630 
A21Q2640 
A210265G 
A2102660 
A2102670 
A210268G 
A2102690 
A2102700 
A2102710 
A21D2720 
A2102730 
A2102740 
A21G2750 



* THIS ROUTINE SELECTS THE APPROPRIATE ROUTINE TO PROCESS THE CARD 

* WHICH HAS BEEN READ. 

* THIS ROUTINE OBTAINS CARD IMAGES THROUGH THE I/O ROUTINE LDREAD 

* AND, UPON FINDING A TXT, REP, END, LDR OR LDT CARD IHAGE, LINKS, TO THE 

* TXT, REP, END, LDR OR LDT CARD ROUTINE. ALL OTHER CARDS ARE IGNORED . 
THE DIFFERENT CARD TYPES ARE TESTED IN ORDER OF DECREASING FRE- 
QUENCY „ 

THE ROUTINE HAY BE ENTERED FROM THE INITIALIZATION ROUTINE, 
ITSELF AND FROM THE TXT, REP, LDR AND END CARD ROUTINES. 



ft yz >r • 



FROH 



SPACE 



CHOP 


0,4 




|AL 


LEXIT3, LDREAD 


GET CARD IHAGE 




LKK1RG,LDXBUF 


CARD TYPE (COL. 1-4) TO WORK. REG. 


CL 


LHK1RG,LTXTCB 


IS CARD TYPE = TXT 


BC 


8,LENTXT 


YES, BRANCH TO TXT CARD ROUTINE 


CL 


LNK1RG,LREPCD 


NO, IS CARD TYPE = REP 


BC 


8,LENREP 


YES, BRANCH TO REP CARD ROUTINE 


CL 


U4K1RG,LENDCD 


NO, IS CARD TYPE = END 


BC 


B,LENEND 


YES, BRANCH TO END CARD ROUTINE 


CL 


LNK1RG,LLDRCD 


NO, IS CARD TYPE = LDR 


BC 


8,LENLDR 


YES, BRANCH TO LDR CARD ROUTINE 


CL 


LNK1RG,LLDTCD 


NO, IS CARD TYPE = LDT 


-BC 


6,GETCRD 


IGNORE OTHER CARDS 


EJECT 







* LDT CARD PROCESSING ROUTINE * 

* * 

* ENTRY POINT = f LENLDT* * 

* THIS ROUTINE TERMINATES THE LOADING PROCESS. THE SEQUENCE FIRST * 

* LOOKS FOR AN ENTRY POINT TO THE PROGRAM. THEN, PROGRAM DATA ARE * 

* SAVED AND CONTROL IS GIVEN TO THE ENTRY POINT FOR EXECUTION OF THE * 

* PROGRAM BY LOADING A P5N IMAGE WHICH CONTAINS THE ENTRY ADDRESS. * 

* THAT P5W IMAGE BECOMES THE CURRENT PSW.NHEN CONTROL IS TRANSFERRED * 

* THE SYSTEM IS IN PROBLEM STATE. ALL INTERRUPTS EXCEPT MACHINE AND * 

* PROGRAM CHECK ARE DISABLED. * 

* THE ROUTINE IS ENTERED FROM THE CARD ANALYZIS ROUTINE. * 



LENLDT 
LENTRL 



SPACE 




CLI 


LDXBUF+5,X'40* 


BC 


8, LENTRL 


HVC 


LDTPSW+5(3),LDXBUF+5 


LM 


2,3,LD8UFF 


LA 


l,l(LOCCTR) 


L 


4,ALALFA 


HVC 


24(104,0), 24(4) 


LPSW 


LDTPSH 


SPACE 2 



DOES LDT CARD CONTAIN ADDRESS 

NO, GO TO SAVE DATA 

YES, PLACE ADDRESS IN TRANSF.PSW 

GL. REGISTERS 1 TO 3 CONTAIN 

DATA FOR LOADED PROGRAMS 

HOVE PSW IMAGE ZONE 

TO P31 AREA 

END OF LOADING - TRANSFER 

CONTROL TO LOADED PROGRAM 



TXT CARD PROCESSING ROUTINE 



A2102760 
A2102770 
A2102780 
A2102790 
A2102800 
A2102810 
A2102820 
A2102830 
A210284Q 
A2I02850 
A21Q2860 
A2102870 
A2102880 
A2102890 
A2102900 
A2102910 
A2102920 
A2102930 
A2102940 
A2102950 
A2102960 
A2102970 
A2I02980 
A2102990 
A2103000 
A2103010 
A2103020 
A2103030 
A2103040 
A2103050 
A21030SO 
A2103070 
A2103080 
A2103090 
A2103100 
A2103110 
A210312Q 
A2103130 
A2103140 
A2103150 
A2103160 
A2103I70 
A2103180 
A2103190 
A2103200 
A2103210 
A2103220 
A2103230 
A2103240 
A2103250 
A2103260 
A210327G 
A2103280 
A2103290 
A2103300 



* ENTRY POINT = 'LENTXP 

* THIS ROUTINE TESTS THE CARD-SPECIFIED TEXT ADDRESS. 



* IF THIS ADDRESS IS LONER THAN 128, THE PART OF THE TEXT CARD TO * 

* BE LOADED BEFORE LOCATION 128 IS PLACED INTO A BUFFER STARTING AT * 

* ADDRESS LALPHA . THE OTHER PART OF THE TEXT CARD IS STORED STARTING * 

* FROM LOCATION 128. * 

* * 

* IF THE STARTING ADDRESS IS GREATER THAN OR EQUAL TO 128, THE ROU- * 

* TINE CHECKS IF THE TEXT OVERLAYS THE LOADER PROGRAM. IF THERE IS * 

* NO OVERLAY, THE TEXT IS PLACED INTO MAIN STORAGE AND THE LOCATION * 

* COUNTER IS UPDATED. IT ALWAYS CONTAINS THE HIGHEST ADDRESS OCCU- * 

* PLED. IN CASE OF OVERLAY , AN ERROR WAIT PSW IS LOADED WITH THE * 

* ERROR INDICATION f 2* IN ITS ADDRESS FIELD. * 

* THIS ROUTINE HAS TWO ENTRY POINTSO LOCATION LENTXT AND LOCATION * 

* LENTX1. LOCATION LENTXT IS THE ENTRY POINT FROM THE CARD ANALYSIS * 

* ROUTINE. LOCATION LENTX1 IS THE ENTRY POINT FROM THE REP CARD * 

* ROUTINE. * 
* 

* NOTE = WHEN THE LDR CARD HAS BEEN ENCOUNTERED, THE LOCATION CO UN- * 

* TER WILL NOT BE UPDATED AND THE ADDRESS INSPECTION FOR LOADER * 

* OVERLAY WILL NOT BE PERFORHED. * 

* # 





SPACE 






LENTXT 


NI 


LBXBUF+^X'GQ* 


TXT CARD - GET STARTING ADDRESS 




L 


LHK1RG ,LDXBUF+4 


AND BYTE COUNT 




LH 


LWK2RG , LBXBUFHO 


» 


LENTX1 


LTR 


LWK2RG,LWK2RG 


IS BYTE COUNT EQUAL TO ZERO 




BC 


8>GETCRD 


YES, GET NEXT CARD 

NO, DECREMENT WORK. REG. BY 1 




BCTR 


LWK2RG,G 




STC 


LWK2RG,L0BTXm 






AR 


LNK2RG,LNK1RG 


CALCULATE HIGHEST ADDRESS TEXT 








WILL OCCUPY 




LH 


LWK3RG,PSWZON 


LOAD 128 (END OF PSW AREA) 




SR 


LWK3RG,LWK1RG 


IS START. ADDRESS GREATER THAN OR 








EQUAL TO 128 


TSTADR 


BC 


12, LENTRH 


YES, GO TO TEST ADDRESS 




SH 


LHK2RG,PSWZON 


NO, IS HIGHEST ADDR.LES5 THAN 128 




BC 


4, LENTRN 


YES, BRANCH TO LENTRN 




BCTR 


LWK3RG,0 


NO, CALCULATE AND STORE TEXT 




STC 


LWK3RG,LODTXT*l 


LENGTH TO BE LOADED IN PSW 








IMAGE ZONE 




STC 


LNK2RG,H0VTXTH 


STORE TEXT LENGTH TO BE LOADED 


* 






AT ADDRESS 128 




LA 


LWK3RG , LDXBUFH7( LWK3RG ) *LOAD ADDRESS OF TEXT IN INPUT 








BUFFER 


HOVTXT 


HVC 


128(1, Q),G(LWK3RG) 


PLACE TEXT IN STORAGE 


LENTRN 


A 


LWK1RG,ALALFA 


ADDRESS OF IMAGE ZONE FOR FIRST 


* 






PART OF TEXT 


LODTXT 


HVC 


GC1,LWK1RG),LDXBUF+16 


TRANSFER TEXT FROM CARD TO STOR. 




BC 


15,GETCRD 


BRANCH TO CARD ANALYSIS ROUTINE 


LENTRH 


CLR 


LWK2RG,L0CCTR 


IS HIGHEST ADDRESS GREATER THAN 








LOCCTR 



A2103310 

A2103320 
A2103330 
A21G334G 
A2103350 
A21G33G0 
A2103370 
A2103380 
A21G3390 
A21G34GG 
A2103410 
A2103420 
A21G3430 
A21Q344Q 
A21G345G 
A2103460 
A21G3470 
A2103480 
A21G349G 
A2103500 
A2103510 
A2103520 
A2103530 
A21Q3540 
A2103550 
A21035G0 
A210357D 
A21G3580 
A2103590 
A21G360G 
A210361G 
A2103b20 
A21G363G 
A21Q364G 
A210365G 
A2103660 
A2103670 
A21036B0 
A21G369G 
A2103700 
A21G371G 
A21G3720 
A2103730 
A2103740 
A21G375G 
A2103760 
A210377G 
A21G3780 
A210379G 
A21G3800 
A21G3810 
A210382G 
A21G383G 
A210384G 
A210385G 



/ 



CHANGE 



LD5T0P 



* 



BC 
LR 
CL 
BC 
HVI 
LPSW 
EJECT 

» v.v v w w.xr.v.w \r .v.w.w w w .v.w w 



12,L0DTXT 

LOCCTR, LNK2RG 

LWK2RG>ALALFA 

4,LGDTXT 

ST0PSN+7,X'Q2 f 

STOPSW 



MO, BRANCH TO LODTKT 

YES, SAVE ADDRESS IN LOCCTR 

IS LOADER OVERLAID 

NO, TRANSFER TEXT TO STORAGE 

YES, BRANCH TO ERROR NAIT-ERR2 



REP CARD PROCESSING ROUTINE 



ENTRY POINT = f LENREP* 

THIS ROUTINE CONVERTS THE REP CARD TO THE FORMAT OF A TXT CARD. 
THE ROUTINE LINKS TO THE LHEXB ROUTINE TO CONVERT BOTH THE AD- 
DRESS AND THE TEXT OF THE CORRECTIONS FROM HEXADECIMAL TO BINARY 
FORM. CONTROL IS THEN GIVEN TO THE TXT CARD PROCESSING ROUTINE, 
THIS ROUTINE HAS ONE ENTRY POINT, LOCATION LENREP, WHICH IS 
ALWAYS ENTERED FROM THE CARD ANALYSIS ROUTINE. 

DURING THE PERIODS THE REP CARD ROUTINE IS LINKED TO THE LHEXB1 
ROUTINE, IT IS SUBJECT TO THE ERROR WAIT OF THAT ROUTINE. IF THE 
REP CARD IS INCORRECTLY DEFINED IT ALSO EXITS TO THE SAME ERROR 
WAIT (LOCATION LHEX35). 



LENREP 



LENRE1 
LENRE2 



LENRE3 



SPACE 


1 




LA 


LEXITl,LDXBUF+6 


CONVERT REP CARD-SPECIFIED 


LA 


LEXIT2,6 


CORRECTION ADDRESS TO BINARY 


BAL 


LEXIT3,LHEX8i 




LR 


LNK1RG,LEXIT4 


AND STORE IT IN WORK. REG. 1 


LA 


LEXIT1,LDXBUF*16 


ADDR.OF FIRST CORRECTION BYTE 


CLI 


Q(LEXITl),X f 40 ? 


IS FIRST BYTE BLANK 


BC 


8,GETCRD 


YES, BRANCH TO CARD ANALYSIS ROUT 


LA 


LWK2RG,2 


NO, UPDATE BYTE COUNT REGISTER 


LA 


LEXIT2,4 
LEXIT3,LHEXB1 


CONVERT 4 CORRECTION BYTES 


BAL 


TO HEXADECIMAL 


STH 


LEXIT4 , LBXBUFH4 ( LNK2RG ) AND STORE IN INPUT BUFFER 


CLI 


0(LEXIT1),C ¥ , T 


IS NEXT BYTE A COKHA 


BC 


7,LENRE3 
LEXITl,l(LEXITi) 


NO, BRANCH TO TEST FOR BLANK 


LA 


YES, UPDATE CORRECTION ADDRESS 
INCREMENT BYTE COUNT BY 2 


AH 


LWK2RG,LENREl+2 


BC 


15,LENRE2 


RETURN TO LENRE2 


CLI 


0(LEXITl),X f 4G f 


IS NEXT BYTE BLANK 


BC 


7,LHEXB5 


NO, INCORRECT REP CARD 


BC 


15,LENTX1 


YES, BRANCH TO TXT CARD PROCESS. 


EJECT 







\r w v xt xy ■ 



LDR CARD PROCESSING ROUTINE 



ENTRY POINT = 'LENLDR' * 

THIS ROUTINE STOPS INCREMENTING OF THE LOCATION COUNTER f LOCCTR » * 

* BEFORE GIVING CONTROL BACK TO THE CARD ANALYSIS ROUTINE. * 

SPACE 



A210386Q 
A2103S70 
A2I03S8G 
A2103S90 
A2103900 
A2103910 
A210392Q 
A210393D 
A21G3940 
A2103950 
A2103960 
A2103970 
A21039B0 
A21G399G 
A2104GGG 
A2104Q1G 
A21G4G2G 
A21G4Q30 
A2104Q40 
A2104050 
A2104Q60 
A2104G7Q 
A21G4080 
A210409G 
A21G41GG 
A21G411G 
A21Q4120 
A21G4130 
A21Q4I4G 
A21G415G 
A21G416G 
A2104170 
A2104180 
A21G419Q 
A21042QG 
A2104210 
A210422Q 
A2104230 
A21Q4240 
A2104250 
A2I04260 
A2104270 
A2104230 
A210429G 
A2104300 
A2104310 
A2104320 
A2104330 
A2104340 
A2104350 
A2104360 
A2104370 
A2104380 
A2104390 
A2104400 



LENLDR HVC T5TADR(4) , CHANGE 
BC 15,GETCRD 
SPACE 2 



MODIFY TXT CARD PROCESSING ROUT, 
BRANCH TO CARD ANALYSIS ROUTINE 



w W .w w 



END CARD PROCESSING ROUTINE 



ENTRY POINT = f LENEND f 

THIS ROUTINE SAVES THE CONTENTS OF THE LOCATION COUNTER AT THE 
TIHE THE FIRST END CARD IS ENCOUNTERED. IT ALSO SAVES THE ADDRESS 
FIELD OF THE LAST END CARD ENCOUNTERED. THEN, IT DETERMINES AN EN- 
TRY POINT FOR PROGRAM EXECUTION. 

THIS ROUTINE IS ALWAYS ENTERED FROM AND EXITS TO THE CARD 
SIS ROUTINE. 



ANALY- 





SPACE 


1 




LEKEND 


TM 


CPREND,X f 20 f 


IS FIRST CARD END SWITCH OFF 




BC 


1>LENEN1 


NO > BRANCH TO LENEN1 




ST 


LOCCTR,LDBUFF 


YES > STORE ADDRESS FIELD 




01 


CPREND,X ? 2G f 


SET FIRST CARD END SNITCH ON 


LENEN1 


MVC 


LDBUFF+5(3),LBXBUF+5 


STORE ADDRESS FIELD 




TM 


LDENTR,X T 10 f 


HAS AN ENTRY POINT BEEN FOUND 




BC 


1,GETCRD 


YES, GO TO CARD ANALYSIS ROUTINE 




CLI 


LDXBUF+5,X f 4Q f 


NO, TEST IF ADDRESS IN CARD IS 
BLANK 










BC 


B,GETCRD 


YES,GO TO CARD ANALYSIS ROUTINE 




01 


LDENTR,X f 10 T 


SET SNITCH ENTRY POINT FOUND ON 




EX 


G,LENLDT 


PLACE ADDRESS IN TRANSFER PSW 




BC 


15>GETCRD 


BRANCH TO CARD ANALYSIS ROUTINE 




EJECT 







* 

* 

\tA£AfcAt At At At A? 



READ TAPE AND CARDS ROUTINE 



ENTRY POINT = *LBREAD T 

THIS ROUTINE READS 80 BYTES FROM CARDS OR MAGNETIC TAPE RECORDS 
AND TESTS THE CHANNEL AND DEVICE STATUS BITS. IF DATA HAVE BEEN 
READ SUCCESSFULLY, CONTROL IS GIVEN BACK TO THE CALLING SEQUENCE. 
OTHERWISE, AN ERROR WAIT PSW IS LOADED AND THE LOADING PROCESS IS 
TERMINATED WITHOUT ANY POSSIBILITY OF RETRY. THE ERROR INDICATION 
f l f IS PLACED IN THE ADDRESS FIELD OF THE ERROR WAIT PSW. 



£ ALAtAfAt At AtAtAt At At At At At At At At ^ 





SPACE 1 




LDREAD 


SSM 


STOPSW 


DISABLE I/O EXT. INTERRUPTIONS 




LA 


LWK1RG,LRDCCW 


LOAD ADDRESS OF CCW 




ST 


LWK1RG,LDRCAW 


AND STORE IT IN CAW 




LA 


LWK1RG,RDIRUP 


SET UP NEW I/O PSW FOR I/O 




ST 


LNK1RG,I0NP5W*4 


INTERRUPTIONS 


SIORDR 


SIO 


0 


SIO READER 




BC 


6,WAITRD 


CC = 0, BRANCH TO WAITRD 




BC 


3,LD5TOP 


CC = 2 OR 3, ERROR NAIT-ERR1 
TEST FOR CHANNEL OR INTERFACE 




TM 


LDRCSW*5,XW 








CONTROL CHECK 



A210441Q 

A21G442G 
A210443G 
A2104440 
A21G4450 
A21044&0 
A21G4470 
A21G4480 
A2104490 
A2UG45GG 
A21G4510 
A21Q452Q 
A2104530 
A21G4540 
A2104550 
A2104560 
A2104570 
A21G45BG 
A21G459G 
A2IG46GQ 
A21G4G10 
A21G462Q 
A2104630 
A21Q4640 
A2184650 
A21Q4S60 
A21Q467Q 
A21Q4680 
A21G4690 
A21Q470G 
A21G471Q 
A21G4720 
A21G473Q 
A21G4740 
A2104750 
A21G476G 
A21G4770 
A2184780 
A210479G 
A21G4800 
A21G4810 
A2104820 
A2104830 
A21G4840 
A210485G 
A2104860 
A21G487G 
A21G4880 
A210489G 
A210490G 
A21G491G 
A21G492G 
A2IG4930 
A2104940 
A2104950 



5, LDST0P 
LDRCSMH,X f 10 f 
1,SI0RDR 
15,LD5T0P 
INTFLG,X'80 f 
12, RETINT 

I0OPS!^2(2),SIQRDR+2 

6, RETINT 
LDRCS14*5,X f 0E f 
5,LD5T0P 
LBRCSWH,X f (W f 
14,STSTAT 

DEVCSy(l),LDRC5WH 

DEVCSU,X'02 r 

1,LD5T0P 

INTFLG >X f 7F f 

15,LEXIT3 

I00PSS4 

DEVCSHCD.LDRCSM 

INTFLG,XW 

RDUAIT 



YES, BRANCH TO ERROR MAIT-ERR1 
NO, TEST FOR BUSY CONDITION 
YES, START I/O OPERATION AGAIN 
NO, BRANCH TO ERROR HA IT - ERR1 
IS INTERRUPTION EXPECTED 
NO, BRANCH TO RETINT 
YES, IS INPUT DEVICE INTERRUPTED 
NO, BRANCH TO RETINT 
YES, TEST FOR CCCCDCICC 
YES, BRANCH TO ERROR NAIT-ERR1 
NO, TEST IF DE IS PRESENT 
NO, SAVE STATUS 
YES, SAVE STATUS 
TEST IF UC IS PRESENT 
YES, BRANCH TO ERROR HAIT-ERRi 
NO, CLEAR INTERRUPTION FLAG 
READING COMPLETED -RETURN TO CAL- 
LER 

RETURN TO POINT OF INTERRUPTION 
STORE DEVICE STATUS BITS 
SET INTERRUPTION FLAG ON 
LOAD READ 14AIT PSH 



BC 
TH 
BC 
BC 

RDIRUP TH 
BC 
CLC 
BC 
TH 
BC 
TH 
BC 
OC 
TH 
BC 
NI 
BCR 

RETINT LPSH 
STSTAT HVC 
&44ITRD 01 

LPSH 
EJECT 

* 



* 



HEXADECIMAL-BINARY CONVERSION ROUTINE 
ENTRY POINT - LHEXB1 

THIS ROUTINE CONVERTS A SPECIFIED NUHBER OF CHARACTERS OF HEXADE- 
CIMAL DATA TO BINARY FORM. IT IS ENTERED FROH THE REP CARD ROUTI- 
NE AT LOCATION LHEXB1 FOR CONVERSION OF AN ADDRESS OR OF A TEXT 
CORRECTION OR AT LOCATION LHEXB5 IF THE REP CARD IS INCORRECTLY 
DEFINED. 

THE MAXIMUM FIELD LENGTH HANDLED BY CALL IS 8 BYTES • 
CALLING SEQUENCE 



L 
L 

BAL 



LEXIT1, START OF FIELD ADDRESS 
LEXIT2, FIELD LENGTH IN BYTES 
LEXIT3,LHEXB1 



ANSWER RETURNED IN 
ADDRESS UPDATED IN 



LEXIFi 
LEXIT1 



THE CHARACTER VALIDITY CHECK DETERMINES WHETHER THE VALID CHARAC- 
IS ALPHABETIC (A - F) OR NUMERIC (1 - 9). 

IF THE ROUTINE ENCOUNTERS AN INVALID HEXADECIMAL CHARACTER, IT 
EXITS TO LOCATION LHEXB5 * AN ERROR 14AIT PSW WITH ALL INTERRUPTS 
DISABLED AND THE ERROR INDICATION *3 f IN ITS ADDRESS FIELD IS 
LOADED . 

IF THE ROUTINE ENCOUNTERS NO INVALID CHARACTER, IT EXITS TO THE 
ADDRESS CONTAINED IN GENERAL REGISTER LEXIT3. 



LHEXB1 



SPACE 

SR LEXIT4,LEXIT4 CLEAR OUTPUT REGISTER 



A210496Q 
A21G397G 
A2I04980 
A21G499Q 
A2105000 
A21050I0 
A21G5G2G 
A2I05030 
A21Q5G30 
A21G505Q 
A21Q5G60 
A2105070 
A2105080 
A2105090 
A21051GG 
A210511Q 
A2105120 
A2105130 
A21G5140 
A2XG5I5G 
A21G516G 
A21G5170 
A2105180 
A2105190 
A21G520G 
A21G5210 
A21G522G 
A210523G 
A21G5240 
A210525G 
A21G5260 
A21G5270 
A210528G 
A21G5290 
A2105300 
A21G531G 
A21G5320 
A210533G 
A21G534G 
A2105350 
A21053GO 
A2105370 
A21G53S0 
A21G5390 
A21D54GG 
A21G5410 
A21G5420 
A210543G 
A21G54A0 
A2105450 
A21054G0 
A2I05470 
A21G5380 
A2105490 
A21G550G 



LHEXB2 



LHEXB3 



LHEXB4 



LHEKB5 



* 
* 



SR LHK3RG,LNK3RG 

CLI 0(LEXITl),C*O f 

BC 4,LHEXB4 

CLI G(LEXITl),C f 9 f 

BC 3,LHEXB5 

HI 0(LEXITl),X f OF f 

IC LNK3RG,G(LEXIT1,0) 

SLL LEXIT4,4 

AR LEXIT4,LWK3RG 

LA LEXm,l(LEXITl) 

BCT LEXIT2,LHEXB2 

BCR 15,LEXIT3 

CLI G(LEXITl),C'A f 

BC 4,LHEXB5 

CLI 0(LEXITl),C'F f 

BC 3,LHEXB5 

IC LNK3RG,9(LEXIT1*0) 

SH LNK3RG,C0NSB7 

BC 15,LHEXB3 

HVI ST0P5W*7,X T G3 f 

BC 15,LDST0P 
EJECT 



CLEAR WORKING REGISTER 
IS BYTE VALUE GREATER THAN 0 
NO, CHARACTER NOT NUHERIC> BRANCH 
YES, IS BYTE VALUE GREATER THAN 9 
YES, INVALID CHARACTER , BRANCH 
NO, CLEAR HIGH ORDER BITS (ZONE) 
LOAD BYTE INTO WORKING REGISTER 
SHIFT REGISTER 4 BYTES LEFT 
ADD NEW HEXAD. DIGIT TO REGISTER 
LOAD ADDRESS OF NEXT BYTE 
BRANCH IF ANY BYTES ARE LEFT 
CONVERSION END-RETURN TO CALLER 
IS BYTE VALUE GREATER THAN A 
NO, INVALID CHARACTER, BRANCH 
YES, IS BYTE VALUE GREATER THAN F 
YES, INVALID CHARACTER, BRANCH 
NO, INSERT BYTE IN WORK. REG. 
CONVERT ALPHABETIC TO BINARY 
BRANCH TO LHEXB3 
INCORRECT REP CARD OR HEXADECI- 
HAL CHARACTER 
BRANCH TO ERROR WAIT-ERR3 



DEFINITION OF CONSTANTS 



SPACE 



RDWAIT 
PRGPSW 

STOPSW 
* 

LBTPSW 



LRDCCH 



DS 
DC 

DC 



DC 

DC 



DC 
DC 



OD 

XTE06* 
XL£>'G f 



x f oao4oooooo f 

AL3CCLEAR3) 



X'OOOSOOOO* 
X f 00000001 f 



DC 
DC 



DC 
DC 
DC 



X f 000500000F v 
XL3 f 0 f 



X'02 f 

AL3CLDXBUF) 
X , 2000D050 T 



READ WAIT PSW (I/O INTERRUPTIONS 
ENABLED, WAIT STATE BIT ON). THIS 
PSW IS LOADED AFTER A READ OPE- 
RATION HAS BEEN STARTED. 
PROGRAM NEW PSW. 

INTERRUPTION ADDRESS FOR THE 1ST 
CHECK (ADDRESSING EXCEPTION CAU- 
SED BY CLEAR SUBRTN). WAIT BIT 
IS SET ON FOR THE FOLLOWING. 
ERROR WAIT PSW (WAIT STATE BIT 
ON, ALL INTERRUPTS DISABLED). 
THIS PSW IS LOADED WHEN LOADER 
ENCOUNTERS AN I/O ERROR OR END 
OF FILE, CONDITION, AN ATTEMPTED 
LOADER OVERLAY ERROR CONDITION 
OR AN INCORRECT REP CARD. THE 
ERROR INDICATION (1,2 OR 3) IS 
PLACED IN ADDRESS FIELD OF PSW. 
TRANSFER PSW LOADED AT END OF 
LOADING (PROBLEM STATE, ALL IN- 
TERRUPTS EXCEPT NACHINE AND PRO- 
GRAM CHECKS DISABLED). 
READ SELECT STACKER 1-CCW 
ADDRESS OF INPUT BUFFER 
5LI FLAG ON - COUNT = 80 



A2105510 
A2105520 
A2105530 
A21Q5540 
A21Q5550 
A2105560 
A21Q5570 
A21G5580 
A2105590 
A2105600 
A2105610 
A21G562G 
A21G5630 
A21G5640 
A21D5650 
A21G5660 
A2105&70 
A2105G80 
A2105G90 
A2105700 
A21G5710 
A21G5720 
A21G573G 
A21G574G 
A21G57SG 
A21G5760 
A21G5770 
A2105780 
A2105790 
A21Q5800 
A2I0581Q 
A2IG5320 
A2105830 
A21G5840 
A21G5850 
A21G58&0 
A21G5870 
A2105880 
A2105890 
A21G59GG 
A2105910 
A21G5920 
A21O5930 
A21G5940 
A21G59S0 
A21G5960 
A21G597G 
A21G5980 
A2105990 
A21GGGG0 
A21G6G1G 
A210602G 
A2106G3G 
A21G6040 
A210&050 



LTXTCD 


DC 


X f Q2E3E7E3* 


LREPCD 


DC 


X f 02D9C5B7 f 


LENDCD 


DC 


X f G2C5B5C4* 


LLDRCD 


DC 


X r 02D3C4D9 f 


LLBTCD 


DC 


X f 02D3C4E3 f 


C0NSB7 


DC 


X'OOB?' 


DEVCSH 


DC 


X f OG T 


PASFLG 


DC 


x ? oo r 




EJECT 





TXT CARD TYPE 

REP CARD TYPE 

END CARD TYPE 

LDR CARD TYPE 

LOT CARD TYPE 

DECIMAL 183 

DEVICE STATUS BITS 

BIT 7 - GENERAL PURPOSE FLAG 



DEFINITION OF EQUIVALENTS 



>JL2JL2JL$Z. w w \r v ^ v 





SPACE 


1 




INTFLG 


EQU 


PASFLG 


BIT G-INTERRUPTION FLAG USED IN 








READ ROUTINE. 


CPREND 


EQU 


PASFLG 


BIT 2-1ST END CARD ADDRESS SAVED 








USED IN END CARD ROUTINE. 


LDENTR 


EQU 


PASFLG 


BIT 3-FLAG FOR ENTRY POINT FOUND 


¥: 






USED IN END CARD ROUTINE 


LDXBUF 


EQU 


GETCRD-80 


INPUT BUFFER (80 BYTES). OVERLAY 








INITIALIZATION ROUTINE. 


ALALFA 


DC 


A(LDXBUF-128) 


PSH IMAGE AREA (USED TO SAVE 








PSUS IN CONTROL AFTER LOADING). 


INITAD 


EQU 


384 


FIRST BYTE AFTER LOG-OUT AREA 


LDBUFF 


EQU 


8 


CONTROL DATA BUFFER (8 BYTES), 


pswzon 


EQU 


MOVTXT+2 


DECIMAL 128 


ENDAD 


DC 

SPACE 


ACCLEARO-256) 
2 






f ViW V iV V VV,V .y .y V M ,V ,V ,V ,v W V ,y Xt ,y ,\f ,V! 3 


/V VVV VV \J> Vf.W.W W \) V « » u v» vw.y V.V VV V V V v» »» u 



REGISTER ASSIGNMENT 





SPACE 






LBASRG 


EQU 


15 


BASE REGISTER 


LEXIT1 


EQU 


11 


RETURN REGISTER 1 


LEXIT2 


EQU 


12 


RETURN REGISTER 2 


LEXIT3 


EQU 


13 


RETURN REGISTER 3 


LEXIT4 


EQU 


14 


RETURN REGISTER 4 


LIsKiRG 


EQU 


1 


WORKING REGISTER 1 


U4K2RG 


EQU 


2 


I40RKING REGISTER 2 


LRK3RG 


EQU 


3 


FORKING REGISTER 3 


LOCCTR 


EQU 


4 


LOCATION COUNTER REGISTER 


LDREND 


EQU 

SPACE 

END 


ENDAD 


END OF LOADER 




AOPTN CROSSREF 




A22B 


TITLE 


* CONTROL PROGRAM FOR CURRENT SYSTEMS SIMULATORS V 


CONTPR 


START 


0 






USING *>0 






SPACE 2 





A21QbGbO 
A210607G 
A21060S0 
A2106090 
A210bl0G 
A2106110 
A2106120 
A2106130 
A210&140 
A2106150 
AZIOblbO 
A210G170 
A21Q6180 
A2106190 
A210620D 
A21G621Q 
A210G220 
A2106230 
A2106240 
A210625Q 
A21062b0 
A2106270 
A2106280 
A2106290 
A21G63Q0 
A2106310 
A2106320 
A2106330 
A21G6340 
A210b350 
A2106360 
A210G370 
A2106380 
A2106390 
A21G64GG 
A21G641Q 
A21G642G 
A21G6430 
A2106440 
A210645G 
A210b4bO 
A2I0647G 
A21G6480 
A21G6490 
A21065G0 
A21G6510 
A210G52G 



-UL-V 



A2200010 
A22GGG20 
A2200G30 
A220GG4D 
A220G050 
A220G060 
A220007G 



* CONTROL PROGRAM * A2200080 

* * A2200090 

* FOR * A220G100 

* * A2200110 

* IBM SYSTEM/360 SIMULATOR FOR THE IBM 1620 * A2200120 

* * A2200130 

* * A2200140 

* * A220015Q 

* THE CONTROL PROGRAM CONSISTS OF ROUTINES TO PERFORM THE FOLLOWING * A2200160 

* FUNCTIONS= * A22D0170 

* * A2200180 

* MACHINE-CHECK INTERRUPTION PROCESSING * A2200190 

* SUPERVISOR-CALL (SVC) INTERRUPTION PROCESSING * A2200200 

* PROGRAM INTERRUPTION PROCESSING * A2200210 

* EXTERNAL INTERRUPTION PROCESSING * A2200220 

* I/O DEVICE VERIFICATION * A22GG230 

* I/O REQUESTS * A22G024G 

* I/O INTERRUPTION PROCESSING * A2200250 

* SETTING UP SEREP INTERFACE * A2200260 

* CCHKUNICATION WITH THE OPERATOR'S CONSOLE * A2200270 

* * A2200280 

* THE FUNCTIONS OF THE CONTROL PROGRAM ARE DESCRIBED WITH THE APPRO- * A2200290 

* PRIATE ROUTINES. * A2200300 

* * A2200310 

* TO FACILITATE THE UNDERSTANDING OF THE FUNCTIONS, A DESCRIPTION * A2200320 

* OF THE FUNCTION WILL BE GIVEN, FOLLOWED BY A DETAILED EXPLANATION * A2200330 

* OF THE CORRESPONDING ROUTINE(S). * A2200340 

* * A220Q350 

* THE CONTROL PROGRAM WILL OPERATE IN THE SUPERVISOR STATE, WHEREAS * A2200360 

* THE SIMULATOR WILL OPERATE IN THE PROBLEM STATE. ANY ATTEMPT TO * A220Q37G 

* EXECUTE A PRIVILEGED INSTRUCTION WITHIN THE SIMULATOR WILL CAUSE * A22C0300 

* A PROGRAM INTERRUPTION. * A2200390 

* * A22G0400 

*HB**************************«t*****^ A22GG410 

EJECT AZ200$2G 

* * A22G044Q 

* TO PERFORM ITS FUNCTIONS, THE CONTROL PROGRAM USES THREE MAJOR * A220G450 

* ELEMENTS: SVC CALLING SEQUENCES, CHANNEL CONTROL BLOCKS AND UNIT * A2200460 

* CONTROL BLOCKS. * A22G0470 

* * A220G4S0 

* THE SVC CALLING SEQUENCES CONSIST OF AN SVC INSTRUCTION, FOLLOWED * A2200490 

* BY A CERTAIN NUMBER OF PARAMETERS. THESE SEQUENCES ARE USED TO * A220G5GD 

* TRANSFER CONTROL TO AND FROM THE VARIOUS ROUTINES IN THE CONTROL * A2200510 

* PROGRAM. * A22G0520 

* * A22Q0530 

* THE CONTROL PROGRAM CONTAINS ONE CHANNEL CONTROL BLOCK (CCB) FOR * A22G0540 

* EACH AVAILABLE SYSTEM/360 CHANNEL. THE CCB CONTAINS INFORMATION * A2200550 

* DESCRIBING THE STATUS OF THE CHANNEL, PLUS A LIST OF THOSE DE- * A220056Q 

* VICES WHICH ARE ATTACHED TO THE CHANNEL. * A2200570 

* * A2200580 

* THE CONTROL PROGRAM CONTAINS ONE UNIT CONTROL BLOCK (UCB) FOR * A2200590 

* EACH AVAILABLE SYSTEM/360 DEVICE. THE UCB CONTAINS INFORMATION * A22006G0 

* DESCRIBING THE NATURE AND STATUS OF THE DEVICE. * A220G610 

* * A220G62G 



* THREE GENERAL REGISTERS I> J AND K ARE ASSIGNED TO CONTAIN THE * 



ADDRESSES OF THE FIRST BYTE OF AN 
AND OF A CCB, RESPECTIVELY. 



SVC CALLING SEQUENCE, OF A UCB 



USING I, J OR K, ANY ELEMENT IN AN SVC CALLING SEQUENCE, IN A UCB 
OR IN A CCB HAY BE EXPRESSED AS A DISPLACEMENT PLUS THE CONTENTS 
OF I, J OR K. 



* THE FOLLOWING NOTES ILLUSTRATE THE NOTATION 

* CONTROL PROGRAM DOCUMENTATION. 

I DENOTES, WHEN THERE IS NO RISK OF AMBIGUITY, 

A GENERAL REGISTER ITSELF OR ITS CONTENTS. 



* 



USED THROUGHOUT THE 



EITHER 



* 

***XXX#XX*X#X**XXXXfcX****X**XXX*^ 

EJECT 

tfwtfvo'vu' v v « y y v.,y ■» wy ,y vy\fwy v ,v ,tf v v ,v y \r ,v ,v ,v ,v v ,v 



ADDRESS OF 1ST BYTE OF SVC 

CALLING SEQUENCE 
ADDRESS OF 1ST BYTE OF UCB 
ADDRESS OF SYSTEM/360 DEVICE 
WORKING REGISTER 
INTERRUPTION CODE IN SVC IN5TR. 
POINTER TO NEXT UCB IN CHAIN 
ADDRESS OF MESSAGE BUFFER 
POINTER TO NEXT UCB ON CHANEL 
WORKING REGISTER 
WORKING REGISTER 
COUNT OF WAITING INTERRUPTIONS 
USED TO SAVE THE CHANNEL NUMBER 

WHEN DETERMINING THE INDEX J 

OF A UCB 
RETURN ADDRESS FOR SUBROUTINE 



(I) DENOTES, WHEN THERE IS A RISK OF AMBIGUITY, THE CON- 

TENTS OF A GENERAL REGISTER. IN THIS CASE, I WILL 
DENOTE EXCLUSIVELY THE GENERAL REGISTER ITSELF. 

XXXCI) DENOTES THE SYSTEM/360 ADDRESS (IHXXX, WHERE XXX IS 
A DISPLACEMENT. WHEN THERE IS NO RISK OF AMBIGUITY, 
THIS EXPRESSION WILL ALSO BE USED TO INDICATE THE IN- 
FORMATION AT THIS ADDRESS. 

(XXXCI)) DENOTES THE CONTENTS OF THE BYTE, HALF140RD, WORD OR 
DOUBLE WORD AT ADDRESS XXX(I). THIS EXPRESSION WILL 
BE USED IN CASES OF AMBIGUITY, IN WHICH CASE XXX(I) 
WILL BE USED EXCLUSIVELY TO DENOTE A SYSTEM/360 AD- 
DRESS. 



GENERAL REGISTER ASSIGNMENT 





SPACE 




I 


EQU 


1 


J 


EQU 


2 


DEVICE 


EQU 


3 


BASE 


EQU 


3 


INTCDE 


EQU 


3 


POINTR 


EQU 


3 


BUFF 


EQU 


3 


CHPTR 


EQU 


3 


NORKA 


EQU 


3 


WORK 


EQU 


4 


L 


EQU 


4 


P 


EQU 


4 








LINKA 


EQU 


4 



A2200630 
A2200640 
A2200650 
A2200660 
A2200670 
A2200680 
A2200690 
A2200700 
A2200710 
A2200720 
A2200730 
A2200740 
A220D750 
A2200760 
A2200770 
A2200780 
A2200790 
A2200300 
A22GG810 
A2200820 
A2200330 
A2200840 
A2200850 
A2200O60 
A22GG37G 
A2200880 
A2200890 
A2200900 
A220G910 
A2200920 
A2200930 
A2200940 
A2200950 
A2200960 
A2200970 
A220G980 
A2200990 
A220100D 
A22Q1G1Q 
A2201020 
A2201G30 
A220104D 
A220105G 
A2201060 
A2201G70 
A22010S0 
A22G109tf 
A22011Q0 
A2201110 
A2201120 
A2201130 
A2201140 
A2201150 
A22G1160 
A2201170 



* CALL (LEVEL 2) 

LINK EQU 5 RETURN ADDRESS FOR SUBROUTINE 

* CALL (LEVEL 1) 

K EQU 6 ADDRESS OF 1ST BYTE OF CCB 

* (IOQBEG) 

BASE6R EQU 7 USED TO BRANCH TO THE SYSTEM/360 

* HA IN STORAGE DUMP PROGRAM OR 

* TO THE I/O SUPPORT PACKAGE 

* PROGRAM. 
EJECT 



aa ■g w v.xir v ,v ,v .v v v \* 



DEFINITION OF CHANNEL AND DEVICE SYMBOLIC STATUS BITS 





SPACE 






A 


EQU 


XW 


ATTENTION 


SM 


EQU 


X^O' 


STATUS MODIFIER 


CUE 


EQU 


X*2G f 


CONTROL UNIT END 


B 


EQU 


X'lG* 


BUSY 


CE 


EQU 


X'08 f 


CHANNEL END 


DE 


EQU 


XW 


DEVICE END 


UC 


EQU 


X f Q2 f 


UNIT CHECK 


UE 


EQU 


X f 01 f 


UNIT EXCEPTION 


PCI 


EQU 


XW 


PROGRAM-CONTROLLED INTERRUPTION 


IL 


EQU 




INCORRECT LENGTH 


PC 


EQU 


X'2Q f 


PROGRAM CHECK 


PRC 


EQU 


X*10 f 


PROTECTION CHECK 


DC 


EQU 


XW 


CHANNEL DATA CHECK 


CCC 


EQU 




CHANEL CONTROL CHECK 


IC 


EQU 


X*G2 f 


INTERFACE CONTROL CHECK 


CHC 


EQU 


X f 01 f 


CHAINING CHECK 


UCORUE 


EQU 


X'03 ? 


UNIT CHECK/EXCEPTION 


AORDE 


EQU 


X^' 


ATTENTION/DEVICE END 


PORPRC 


EQU 


X'30» 


PROGRAM/PROTECTION CHECK 


DESTAT 


EQU 


X*FF r 


ANY DEVICE STATUS BIT 


CDICCC 


EQU 


X'0E f 


CHANNEL DATA/ INTERFACE/CHANNEL 








CONTROL CHECK 


CHS TAT 


EQU 


X'FF* 


ANY CHANNEL STATUS BIT 


CHERST 


EQU 


X'lF' 


PRC*DC+CCC+IC*CH 


CBNRST 


EQU 


X'BF* 


CHANNEL STATUS BITS, EXCEPT IL 




EJECT 







9* 



CHANNEL CONTROL BLOCKS 



* 

3* * 

* DEFINITION OF PARAMETERS RELATED TO THE CCB'S * 

* THESE PARAMETERS ARE EXPRESSED AS DISPLACEMENTS RELATIVE TO THE * 

* ADDRESS K OF THE CCB. * 

SPACE 

IOQBEG EQU 0 THO I40RBS USED NHEN CHAINING I/O 



A2201130 
A2201190 
A2201200 
A2201210 
A22Q1220 
A2201230 
A220124Q 
A220125Q 
A22GI260 
A2201270 
A2201280 
A2201290 
A2201300 
A22013I0 
A22Q1320 
A2201330 
A22Q1340 
A2201350 
A2201360 
A2201370 
A2201380 
A2201390 
A220140Q 
A220141G 
A2201420 
A220143Q 
A2201440 
A220145Q 
A2201460 
A2201470 
A2201480 
A2201490 
A2201500 
A2201510 
A2201520 
A220I530 
A22G1540 
A220155Q 
A2201560 
A220I57Q 
A22Q158G 
A2201590 
A2201G00 
A2201G10 
A2201620 
A22Q163D 
A2201640 
A2201650 
A220I660 
A2201670 
A2201G80 
A2201690 
A2201700 
A2201710 
A2201720 



IOQEND 



EQU 
SPACE 



REQUESTS FOR A PARTICULAR 
CHANNEL 

(lOQBEG(K)) IS THE ADDRESS OF 
THE FIRST UC8 ON THE CHAIN, OR 
ZERO IF THERE ARE NO UCB*S ON 
THE CHAIN 
QOQEND(K)) IS THE ADDRESS OF 
THE WORD, DEVCHN, INTO WHICH 
WILL BE PLACED THE ADDRESS OF 
THE NEXT UCB TO BE ADDED TO 
THE CHAIN 
SPACE 2 

^^^^^^^^ ^^l^^^ ^^^^^!K^^7f^^TK^^^^^^^^^^^^T< H ^^^5*T>< 7T A ^^^7T^^^7<*>C?r7rTr7t TK^VT 

* CHAINING OF I/O REQUESTS IS MORE FULLY EXPLAINED IN CONJUNCTION * 

* WITH THE STACK AND UNSTAK ROUTINES . * 



DEVTAB 



SPACE 
EQU 

SPACE 



LIST OF DEVICES ATTACHED TO THE 
CHANNEL 



EJECT 



EACH WORD IN THE LIST CORRESPONDS TO A DEVICE ATTACHED 
TO THE CHANNEL 

BITS 5-7 OF EACH WORD CONTAINS THE SYSTEM/360 ADDRESS OF 
THE DEVICE, EXCLUDING THE CHANNEL PART 
BITS 8~31 OF EACH WORD CONTAINS THE ADDRESS OF THE ASSO- 
CIATED UNIT CONTROL BLOCK (UCB) 
DEVTAB IS TERMINATED BY A WORD CONTAINING ZEROS 



* UNIT CONTROL BLOCKS 

* DEFINITION OF PARAMETERS RELATED TO THE UCB'S 

* THESE PARAMETERS ARE EXPRESSED AS DISPLACEMENTS RELATIVE TO THE 

* ADDRESS J OF THE UCB. 



SPACE 



DEVTYP 


EQU 










BEV360 


EQU 






DEVSPF 


EQU 














BORCH 


EQU 








SPACE 








SPACE 



FOUR CHARACTERS WHICH DEFINE THE 

TYPE OF DEVICE (USED DURING 

I/O VERIFICATION) 
TWO BYTES CONTAINING THE SYSTEM/ 

360 ADDRESS OF THE DEVICE 
ONE BYTE WHICH DEFINES THE 

SPECIAL FEATURES OF THE 

DEVICE (USED DURING I/O 

VERIFICATION) 
ONE BYTE WHICH DEFINES THE 

STATUS OF THE DEVICE 



THE BYTE IS DECOMPOSED THUS= 



A2201730 
A22G1740 
A2201750 
A2201760 
A2201770 
A220I780 
A220I790 
A2201S00 
A2201810 
A2201820 
A2201839 
A2201840 
A2201850 
A22G1860 
A2201870 
A2201880 
A22G1S9Q 
A22Q1909 
A2201910 
A2201920 
A2201930 
A2201940 
A2201950 
A2201960 
A220I970 
A2201980 
A2201990 
A2202000 
A22020I0 
A2202020 
A2202030 
A2202040 
A22G2050 
A2202069 
A2202070 
A2202C80 
A2202090 
A2202100 
A2202110 
A2202120 
A2202130 
A22Q2I49 
A22G215G 
A2202160 
A22Q2170 
A2202180 
A2202190 
A220220D 
A2202210 
A2202220 
A2202230 
A2202240 
A2202250 
A2202260 
A2202270 



* THE SIX LEFTMOST BITS ARE ALWAYS ZERO A2202280 

* THE TMO RIGHTMOST BITS TAKE THE VALUES= A2202290 
SPACE A2282300 

* 00 DEVICE AVAILABLE A2202310 

* 01 DEVICE CHAINED A2202320 

* 11 DEVICE BUSY A2202330 

* 10 DEVICE BUSY, BUT UNIT CHECK ENCOUNTERED A2202340 
SPACE A2202350 

DEVSVC EQU 8 A ONE-WORD QUANTITY USED ONLY A2202360 

* WHEN THE DEVICE IS BUSY OR A2202370 

* COINED A2202380 

* CONTAINS THE ADDRESS I OF THE A2202390 

* FIRST BYTE OF THE SVC CALLING A2202400 

* SEQUENCE ASSOCIATED WITH THE A220241G 

* DEVICE A22G242Q 
SPACE A2202430 

DEVCHN EQU 12 A ONE-WORD QUANTITY USED WHEN A2202440 

* CHAINING SVC 1 OR SVC 2 A2202450 

* CALLING SEQUENCES A220246G 

* CONTAINS THE ADDRESS OF THE NEXT A22G2470 

* UCB ON THE CHAIN, OR ZERO IF A220248G 

* THERE ARE NO MORE UCB f S ON THE A2202490 

* CHAIN A2202500 
DEVINT EQU 16 A ONE-WORD QUANTITY CONTAINING A2202510 

* THE ADDRESS OF THE FIRST A2202520 

* BYTE OF THE EXIT SEQUENCE USED A2202530 

* BY THE ROUTINE WHICH TREATS A22G2540 

* I/O INTERRUPTIONS A2202550 
SPACE 3 A2202560 

UCBSNS EQU 20 THREE BYTES RESERVED FOR THE A2202570 

* 4TH, 5TH AND 6TH SENSE BYTES A2Z02580 

* ARISING FROM A SENSE A2202590 

* OPERATION PERFORMED AS A A2202600 

* RESULT OF A UNIT CHECK A2202610 

* CONDITION DETECTED DURING THE A2202620 

* EXECUTION OF AN I/O REQUEST A2202630 

* FOR THE DEVICE A2202640 

* IF ONE OR MORE OF THESE SENSE A2282650 

* BYTES DOES MOT OCCUR, THE COR- A2202660 

* RESPONDING BYTECS) IN UCBSNS A220267G 

* WILL BE SET TO ZERO A2202680 
SPACE A2202690 

TNVST EQU 23 A ONE-BYTE QUANTITY USED TO MASK A2202700 

* OUT THE DEVICE STATUS BYTE OF A2202710 

* THE CSW A2202720 

* CONTAINS ONES ONLY IN THOSE BITS A2202730 

* WHICH CORRESPOND TO ANY DEVICE A2202740 

* STATUS BITS WHICH SHOULD NOT A2202750 

* OCCUR FOR THIS TYPE OF DEVICE A2202760 
SPACE A2202770 

DEVATT EQU 24 A ONE-WORD QUANTITY USED IN A2202730 

* CONNECTION WITH UNACCOMPANIED A2202790 

* ATTENTION INTERRUPTIONS FOR A2202800 

* THE DEVICE A22028IO 

* IF AN ATTENTION INTERRUPTION A2202820 



* CANNOT OCCUR FOR THIS DEVICE, A2202830 

* THIS k*ORD HAY BE OMITTED FROM A22G284Q 

* THE UCB A22Q2850 
SPACE A2202860 

BCHMSK EQU X'Gl f FLAGS AND MASKS A2202870 

BSYFLG EQU X f Q3 f * A220288Q 

FREFLG EQU X'OO' * A22Q2890 

CHNFLG EQU X*01 f * A2202900 

SNSFLG EQU X'G2 f * A2202910 

EJECT A2202920 

^ieRBr?H**^9Bc*##^£s#*x*###*£*$^ A2202930 

* * A22G2940 

* DEFINITION OF PARAMETERS IN AN I/O REQUEST SEQUENCE * A2202950 

* THESE PARAMETERS ARE EXFRESSED AS DISPLACEMENTS RELATIVE TO THE * A22Q2960 

* ADDRESS I OF THE SVC CALLING SEQUENCE. * A220297Q 

* * A2202980 

A2202990 

SPACE A2203000 

CAHADD EQU 4 DENOTES THE ADDRESS OF THE FIRST A2203010 

* CG4 TO BE EXECUTED A2203Q20 
SPACE A2203030 

STATUS EQU 8 ONE BYTE CONTAINING TWO A2203040 

* HEXADECIF&L DIGITS, A2203050 

* LABELED ERRTYP AND STRTBT A2203060 
SPACE A2203070 

ERRTYP EQU STATUS ON RECEIPT OF AN I/O REQUEST, A2203D3Q 

* ERRTYP IS SET TO ZERO A2203090 
SPACE A2203I00 

* WHEN ALL ACTIVITY RELATED TO A2203110 

* THIS REQUEST HAS BEEN TERMIN- A2203120 

* ATED, ERRTYP TAKES THE A2203130 

* FOLLOWING VALUES= A2203140 
SPACE A2203150 

* " 1 - THE DEVICE, CONTROL UNIT, A22031S0 

* SUBCHANNEL OR CHANNEL IS A2203I70 

* NON -OPERATIONAL A2203180 

* 2 - NO UCB EXISTS FOR THIS A2203190 

* DEVICE A2203200 

* 3 - A PROGRAM CHECK OR PROTEC- A2203210 

* TION CHECK HAS BEEN A2203220 

* DETECTED BY THE CHANNEL A2203230 

* IF NONE OF THESE CONDITIONS A22G3240 

* ARISES, ERRTYP REMAINS ZERO A2203250 
SPACE A2203260 

STRTBT EQU STATUS ON RECEIPT OF AN I/O REQUEST, A2203270 

* STRTBT IS SET TO ZERO A2203280 

* IT HILL BE SET TO ONE WHEN THE A2203290 

* PHYSICAL I/O OPERATION HAS A2203300 

* BEEN INITIALIZED AT THE DEVICE A2203310 
SPACE A2203320 

SNSADD EQU 9 THREE BYTES RESERVED FOR THE A2203330 

* 1ST, 2ND AND 3RD SENSE BYTES A2203340 

* ARISING FROM A SENSE A2203350 

* OPERATION PERFORMED AS A A22033S0 

* RESULT OF A UNIT CHECK A2203370 



svccsw 

SVCPSH 



EJECT 
EQU 12 



CONDITION DETECTED DURING THE 
EXECUTION OF AN I/O REQUEST 
ON RECEIPT OF AN I/O REQUEST 
THESE BYTES ARE SET TO ZERO 

A DOUBLE-WORD QUANTITY USED TO 
ACCUHULATE CHANNEL STATUS 
INFORMATION 
ON RECEIPT OF AN I/O REQUEST > 
THE CONTENTS OF SVCCSM ARE SET 
TO ZERO 
CHANNEL STATUS INFORMATION 
GENERATED IN THE CSW BY THE 
EXECUTION OF AN I/O REQUEST IS 
ACCUMULATED IN SVCCSN 
IF CHANNEL AND DEVICE STATUS IS 
GENERATED ON MORE THAN ONE 
OCCASION DURING THE 
EXECUTION OF A CHAIN OF I/O 
COMMANDS* THE CONTROL PROGRAM 
WILL ACCUMULATE THE LOGICAL 
f OR f OF THIS STATUS INFORMA- 
TION IN THE APPROPRIATE BYTES 
OF SVCCSW 

A DOUBLE WORD IN WHICH IS PLACED 
THE INPUT/OUTPUT OLD PSH 
GENERATED BY THE LAST I/O 
INTERRUPTION RELATED TO THE 
REQUEST 

SPACE 2 * 



SPACE 
EQU 



20 



* DEFINITION OF SENSE BITS USED 


BY READ/WRITE CONSOLE ROUTINES 




SPACE 






INTREQ 


EQU 


X f 40 T 


INTERVENTION REQUIRED 


BUSOUT 


EQU 


X*20 r 


BUS OUT CHECK 


EQUCHK 


EQU 


X'lQ f 


EQUIPMENT CHECK 


CR 


EQU 


XW 


COMMAND REJECT 




EJECT 






IPLPSW 


D5 


D 


INITIAL PROGRAM LOADING PSW 


IPLCC1 


DS 


D 


INITIAL PROGRAM LOADING CCN1 


IPLCC2 


DS 


D 


INITIAL PROGRAM LOADING CCN2 


OEXPSW 


OS 


D 


EXTERNAL OLD PSW 


OSVPSH 


DS 


D 


SUPERVISOR CALL OLD PSW 


OPRPSN 


DS 


D 


PROGRAM OLD PSW 


OMCPSW 


DC 


X f 0000FFOOO000O00O f 


MACHINE-CHECK OLD PSW 


OIOPSW 


DS 


D 


INPUT/OUTPUT OLD PSW 


CSM 


DS 


D 


CHANNEL STATUS WORD 


cm 


DS 


F 


CHANEL ADDRESS WORD 




DS 


F 






SPACE 






TIMER 


DC 


X'FFFFFFOO* 


TIMER-SET TO MAX VALUE 



A220338D 
A2203390 
A2203400 
A22G341G 
A2203420 
A2203430 
A22Q3440 
A220345G 
A2203^60 
A22G347G 
A22Q3380 
A2203490 
A2203500 
A2203510 
A220352Q 
A2203530 
A22G3540 
A22035S0 
A22Q3560 
A2203570 
A2203580 
A2203590 
A22G36G0 
A22G3610 
A22G362G 
A2203630 
A220364G 
A2203650 
A2203G60 
A22G3670 
£2203680 
A22G369G 
A2203700 
A220371Q 
A2203720 
A2203730 
A2203740 
A2203750 
A22G376G 
A2203770 
A2203780 
A2203790 
A2203800 
A2203810 
A2203820 
A2203830 
A220334G 
A2203850 
A22G336Q 
A220387D 
A220388D 
A220389D 
A2203900 
A2203910 
A2203920 



D5 F 
SPACE 

*************************************************^ 

* EXTERNAL NEW PSW * 

*********************************************************^ 

SPACE 

NEXPSW DC X f 00 f I/O AND EXTERNAL INTERRUPTIONS 

* DISABLED 

DC XW ALLOW MACHINE CHECK INTERRUPTION 

DC H v 0' 

DC A(EXTRET) EXTERNAL INTERRUPTION ADDRESS 

SPACE 

* SUPERVISOR CALL NEW PSW * 

*****************************************************^ 

SPACE 



NSVPSW 
* 



DC 



XW 



I/O AND EXTERNAL INTERRUPTIONS 
DISABLED 

ALLOW MACHINE CHECK INTERRUPTION 



DC XW 
DC H f 0' 
DC A(SVCINT) 
SPACE 

************************************************************** 

PROGRAM NEW PSW * 



SVC INTERRUPTION ADDRESS 



NPRPSW 
* 



SPACE 
DC 

DC 

DC 
DC 



X'GQ f 
XW 
H'G' 

A(PRINT) 



I/O AND EXTERNAL INTERRUPTIONS 
DISABLED 

ALLOW MACHINE CHECK INTERRUPTION 
AND WAIT 



IN 



INTERRUPTION ADDRESS WHEN NOT 
WAIT STATE 

EJECT 

**************************************************^ 

* 

MACHINE-CHECK INTERRUPTION PROCESSING^ 



WHEN A MACHINE-CHECK INTERRUPTION OCCURS, THE CONTROL PROGRAM IS 
ENTERED. IT WILL RESPOND TO THE INTERRUPTION BY SETTING UP THE 
STANDARD SEREP INTERFACE FOR A MACHINE CHECK. 

A P5W FOR WHICH I/O, EXTERNAL AND FURTHER MACHINE-CHECK INTERRUP- 
TIONS ARE DISABLED, AND IN WHICH THE WAIT STATE BIT IS ONE, WILL 
BE LOADED. THE LAST BYTE OF THIS P5W (ADDRESS FIELD, BITS 56-63) 
WILL CONTAIN ALL ONES. 

THE WAIT LIGHT ON THE SYSTEM CONTROL PANEL WILL BE SET ON AND OP- 
ERATOR INTERVENTION WILL BE AWAITED. 



****************************************************^ 

SPACE 2 

********************************** 

* MACHINE-CHECK NEW PSW * 

W W.M V XT ■<» 



A2203930 

A22G394G 
A2203950 
A2203960 
A2203970 
A2203980 
A2203990 
A2204GGG 
A22G401G 
A2204G20 
A22G403G 
A22Q4G40 
A2204G5G 
A22Q4G6Q 
A22G4G7G 
A22G4G8G 
A22G4G9Q 
A220410Q 
A22G4110 
A22G412G 
A22G4I3G 
A22G414G 
A22G415Q 
A2204160 
A22G4170 
A22G4180 
A22G419G 
A22G4200 
A220421G 
A22G4220 
A22G4230 
A220424G 
A22G425G 
A22G426G 
A220427D 
A22G428G 
A220429G 
A2204300 
A2204310 
A22G4320 
A22G433G 
A2204340 
A2204350 
A2204360 
A22G437G 
A22G4380 
A22G439G 
A22044GG 
A22G441G 
A22G442G 
A220443G 
A220444G 
A2204450 
A22G4460 
A2204470 



SPACE A22Q^3Q 

NHCPSN DC XW I/O AND EXTERNAL INTERRUPTIONS A22G4490 

* DISABLED A2204500 
DC X f 02 f STOP MACHINE CHECK INTERRUPTIONS A22G451Q 

* AND KAIT A220452G 
DC X'GOQO* A22G453G 
DC A(255) A2204540 
SPACE A22G455Q 

A22G456Q 

* INPUT/OUTPUT NEW PS4 * A22G457Q 

A22G453Q 

SPACE A2204590 

NIOPSM DC XW I/O AND EXTER^L INTERRUPTIONS A2204600 

* DISABLED A220461Q 
DC XW ALLOW MACHINE-CHECK INTERRUPTION A2204620 
DC H f 0 f A22G463G 
DC A(IOINT) INPUT/OUTPUT INTERRUPTION ADDR. A2ZQ4640 
SPACE A22Q4650 

SCAN DS 64F DIAGNOSTIC SCAN-OUT AREA A22G466Q 

MESPSH DS D PSM IN MESAGE/COHAND ROUTINES A22Q4670 

SVCGR DS 7F SAVE AREA FOR GENERAL REGISTERS A22G4680 

* 1-7 AFTER SVC INTERRUPTION A22G4690 
IOGR DS 7F SAVE AREA FOR GENERAL REGISTERS A22Q4700 

* 1-7 AFTER I/O INTERRUPTION A22Q4710 
MESSGR DS 7F SAVE AREA FOR GENERAL REGISTERS A2204720 

* 1-7 FOR HESAGE/COHAND ROUTINES A22G4730 
EJECT A22Q4740 

A22G475D 

* * A2ZG476Q 

* PROCESSING OF SUPERVISOR CALL INTERRUPTIONS * A22G4770 

* * A22G47S0 

* INCLUDED IN THE ROUTINE IS AN SVC TABLE OF 20 SINGLE-NORD ENTRIES * A2204790 

* CORRESPONDING, IN ORDER, TO THE ALLOWED VALUES G-19 OF THE INTER- * A22G48G0 

* RUPTION CODE IN AN SVC INSTRUCTION. THESE INTERRUPTION CODES AND * A220481G 

* THEIR CORRESPONDING FUNCTIONS ARE GIVEN IN THE FOLLOWING TABLE . * A220A32G 

* * A22G403G 

SPACE 2 A22Q4S5G 

A220436Q 

* * A22Q487G 

* INTERRUPTION CODE FUNCTION * A22G488G 

* * A22G4890 

* * A22G4900 

* 0 I/O DEVICE VERIFICATION * A2204910 

* 1 I/O REQUEST AND INTERRUPT * A22Q4920 

* AT CHANNEL END * A220493Q 

* 2 1/0 REQUEST AND CONTINUE * A2204940 

* 3 RETURN TO POINT OF * A2204950 

* INTERRUPTION * A22Q49&G 

* 4 I4RITE HESSAGE * A220497G 

* 5 SET COHKAND PARAMETERS * A2204980 

* 6 SET PROGRAM INTERRUPTION * A220499G 

* RETURN * A22G5G0G 

* 7 SET UP SEREP INTERFACE * A22G5G10 

* 8 DISABLE * A22G5G20 





9 


ENABLE 






10 


SET EXTERNAL INTERRUPTION 








RETURN 






11 


I/O REQUEST AND WAIT 






12 


SYSTEH/360 DUMP 






13 


REWIND 






14 


REMIND AND UNLOAD 






15 


DISABLE (CONSOLE) 






16 


ENABLE (CONSOLE) 






17 


LOGICAL I/O REQUEST 




If 


18 


LOGICAL I/O REQUEST 




* 


19 


SET WAIT STATE 













SPACE 2 

\£* .x# .xy xj xy xj* xy xj* x^ x/ .vp \y xy x^ xr xf xy x.* y xy .x^* \y .xy x^ xy xy xf .xy xf xj xt \f .xj* xy .x^ .y.xr y v y y y y vf y y y y ,y y ,y xr v y xy v y y y y y ,y y xr xr x r y vr v y 

& 9* 

* IF THE INTERRUPTION CODE IS GREATER THAN 19, A PROGRAM INTERRUP- * 

* TION IS ARTIFICIALLY CREATED . THE INTERRUPTION CODE PORTION OF * 

* THE PROGRAH OLD PSW IS SET TO INDICATE AN OPERATION EXCEPTION. * 

* # 

* .../... * 
EJECT 



91 
9* 

9* 

9* 
9f 

9* 
9* 

9* 

*9BBf*9f« 



OTHERWISE, CONTROL IS GIVEN TO THE APPROPRIATE ROUTINE, 
SVC TABLE. 



VIA THE 



THE GENERAL AND FLOATING-POINT REGISTERS MAY CONTAIN ANY VALUE 
WHEN AN SVC CALLING SEQUENCE IS PRESENTED TO THE CONTROL PROGRAH. 
WHEN CONTROL IS RETURNED TO THE SIMULATOR, THE CONTENTS OF THESE 
REGISTERS MILL BE UNCHANGED. 

FOR THE MAJORITY OF ITS FUNCTIONS, THE CONTROL PROGRAM MUST BE 
GIVEN A NUMBER OF PARAMETERS. THE VALUES OF THESE PARAMETERS ARE 
SET UP IN THE BYTES IMMEDIATELY FOLLOWING THE SVC INSTRUCTION. AN 
SVC INSTRUCTION, TOGETHER WITH ITS NECESSARY PARAMETERS IS REFER- 
RED TO AS AN SVC CALLING SEQUENCE. 

AN SVC CALLING SEQUENCE IS OF THE GENERAL FORM= 

CNOP X,X 
I SVC INTCDE 

DC OR DS 

NORMAL AND EXCEPTIONAL RETURN ADDRESSES 

THE CALLING SEQUENCES FOR EACH VALUE OF INTCDE ARE FOUND WITH THE 

APPROPRIATE ROUTINES. 



A2205030 
A22Q504Q 
A2205050 
A2205060 
A2205070 
A22G508G 
A22G5090 
A2205I00 
A2205110 
A2205120 
A2205130 
A2205140 
A2205150 
A22051G0 
A22G5170 
A2205180 
A2205190 
A2205200 
A2205210 
A2205220 
A2205230 
A22G5240 
A2205250 
A2205260 
A22D5270 
A2205280 
A2205290 
A22O530O 
A2205310 
A2205320 
A2205330 
A22G534G 
A220535D 
A22053G0 
A2205370 
A2205380 
A2205390 
A22054G0 
A2205410 
A2205420 
A220543Q 
A22G544G 
A22G545Q 
A2205460 
A22G5470 
A22Q5480 
A22G5490 
A2205500 
A2205510 
A2205520 
A2205530 
A2205540 
A2205550 
A2205560 
A2205570 



SPACE 2 



SVC INTERRUPTION PROCESSING ROUTINE 



SVCINT 



SVCERR 



SVCTAB 



DMP360 



SPACE 




STM 


1>7,SVCGR 


L 


I,0SVPSU+4 


SH 


I>DEC2 


SR 


INTCDE>INTCDE 


IC 


INTCDE>1(I) 


SLA 


INTCDE>1 


LH 


BASE6R > SVCTABC INTCDE ) 


CH 


INTCDE, DEC40 


BCR 


4»BASEGR 


HVC 


OPRPSW(8),OSVP5W 


MVC 


OFRPSf4*2(2),INTCDl 


LH 


1,7,5VCGR 


LPS4 


NPRPSU 


DC 


YL2( VERIFY) 


DC 


YL2CI0C0NT) 


DC 


YL2(I0C0NT) 


DC 


YL2 (RETURN) 


DC 


YL2(MESAGE) 


DC 


YL2(SETC0M) 


DC 


YL2CPRSET) 


DC 


YL2CSEREP) 


DC 


YL2CDISABL) 


DC 


YL2( ENABLE) 


DC 


YL2CEKTSET) 


DC 


YL2CIOI4AIT) 


DC 


H f 344G T 


DC 


YL2CI0C0NT) 


DC 


YL2CI0CONT) 


DC 


YL2CDISCSL) 


DC 


YL2CENACSL) 


DC 


H f 3488 f 


DC 


H f 3488 T 


DC 


YL2CNAITST) 


EJECT 






^ v v vxr v v«5jr vxjiJ 



K J* H 71 J* wt H K 



(GENERAL REGISTERS i-7) TO SVCGR 
OSVPS4(A)-2 TO I 

2. (INTERRUPTION CODE) TO INTCDE 

IS INTCDE LESS THAN 20 

YES-BRANCH THROUGH SVCTAB 
NO-TREAT AS PROGRAM INTERRUPTION 
OSVPSW TO 0PRPSH,1 TO INT. CODE 
RELOAD GENERAL REGISTERS 1-7 
PROGRAM INTERRUPTION 
I/O VERIFICATION 

I/O REQUEST-INTERRUPT AT CHANEL 
END 

I/O REQUEST-CONTINUE 

RETURN TO CALLER 

WRITE MESSAGE 

SET COMMAND PARAMETERS 

SET PROGRAM INTERRUPTION RETURN 

SET UP SEREP INTERFACE 

DISABLE 

ENABLE 

SET EXTERNAL INTERRUPTION RETURN 
I/O REQUEST-WAIT 
SYSTEM/360 DUMP ADDRESS 
RENIND 

REMIND AND UNLOAD 
DISABLE (CONSOLE) 
ENABLE (CONSOLE) 

I/O PACKAGE ADDRESS (FOR LOGICAL 

I/O REQUEST) 
SET J4AIT STATE 



SVC 6, SET PARAMETERS FOR PROGRAM INTERRUPTION 



******************** 
* 
* 

* 

■ u- v.v vr v vr *r \r v \r v v yy-j- v xy. w.w www ww 





SPACE 




PRSET 


NI 


NPRPSWU,X , FD* 




HVC 


PRRETA(3),3(I) 




LA 


1,6(1) 




ST 




PRSETA 


LA 


1,8(1) 




BC 


15,VERIFB 




SPACE 2 



0 TO WAIT BIT IN NPRPSH 
am TO PRRET 
1*6 TO PRPSW 
* 

1*14 TO OSVPSk'(A) 

GO TO I/O VERIFICATION ROUTINE 



A2205580 
A22Q559G 
A2205600 
A2205610 
A2205620 
A2205630 
A22056^0 
A2205650 
A2205660 
A22G567G 
A2205680 
A2205690 
A2205700 
A2205710 
A2205720 
A22G573G 
A2205740 
A2205750 
A2205760 
A22G5770 
A2205780 
A2205790 
A22G5800 
A2205810 
A2205820 
A220583G 
A2205S40 
A22G5850 
A220586Q 
A2205870 
A220S880 
A2205890 
A22059G0 
A2205910 
A2205920 
A2205930 
A22Q5940 
A2205950 
A220596Q 
A2205970 
A22G5980 
A2205990 
A2206000 
A2206010 
A2206020 
A2206030 
A22G604G 
A2206050 
A2206060 
A2206070 
A2206080 
A2206090 
A2206100 
A2206110 
A2206120 



SVC 10, SET PARAMETERS FOR TIMER INTERRUPTION 



SPACE 




MVC 


NEXPSN*5(3),EXTSWA 


HVC 


TIMINA(8),2(I) 


LA 


1,10(1) 


ST 


I,EXTPSW 


BC 


15>PRSETA 


EJECT 





1 TO EXTSW 

(1+2) TO TIMINA>KEYINA 
1*10 TO EXTPSW 

1+18 TO OSVPSWCA), GO TO I/O 
VERIFICATION ROUTINE 



DISABLE AND ENABLE FUNCTIONS 
DISABLE= 

THE SVC CALLING SEQUENCE SVC 8 
INTERRUPTIONS TO BE DISABLED* 
SET TO THE VALUE X*00 v . 



HILL CAUSE I/O AND EXTERNAL 
I.E., THE SYSTEM MASK HILL BE 



THE DISABLED STATE MAY BE SET UP EITHER BY THE f DISABLE* 
LING SEQUENCE OR AS THE RESULT OF AN INTERRUPTION. 



SVC CAL- 



ENA8LE= 

THE SVC CALLING SEQUENCE SVC 9 WILL CAUSE I/O AND EXTERNAL 
INTERRUPTIONS TO BE ENABLED. I.E., THE SYSTEM MASK WILL BE 
SET TO THE VALUE X r FF T . 

CONSOLE DISABLE= 

THE SVC CALLING SEQUENCE SVC 15 WILL CAUSE AN ATTENTION INTERRUP- 
TION RESULTING FROM AN OPERATOR COMMAND ON THE CONSOLE KEYBOARD 
TO BE IGNORED. 

CONSOLE ENABLE - 

THE SVC CALLING SEQUENCE SVC 16 WILL CAUSE SUCH ATTENTION INTER- 
RUPTIONS TO BE ACCEPTED IF AN SVC 5 (SET COMMAND PARAMETERS) CAL- 
LING SEQUENCE HAS BEEN PREVIOUSLY SUBMITTED. 



SPACE 2 

v v \r \t y Vf xr v v v> v w v u .y \r \r w \* v v vr v y y y y y y y y y y y y v y ,y y y y y ,y y y y y vv vyv w vv v\^v vj^wvw vvv 

* SVC 8, DISABLE * 

SPACE 

DISABL NI OSVPSW,X'G0 f INHIBIT I/O AND EXTERNAL INT. 

DISRET BC 15,ENARET RETURN TO CALLER 
SPACE 2 

it .the v, w. v v: an y, y y, y. y y, y, y, y v m ,v: ,v v y ,v. vt at x v .v v. x m -v. >g .v. m-x ->r, x v„ -v, at -m af m m >f , M \t ,v, ^t, ,x ,v; ag ,y. Yv^itiHmtit ag, .v, m 3£ -v. 

* SVC 9, ENABLE * 



A22G6130 
A2206140 
A2206150 
A2206160 
A220617G 
A2206180 
A22Q619Q 
A2206200 
A2206210 
A2206220 
A2206230 
A220S2<*0 
A2288250 
A2206260 
A22Q6270 
A22G628D 
A22G&290 
A2206300 
A2206310 
A220&320 
A2206330 
A2206340 
A220S350 
A220G360 
A220G370 
A22G6380 
A220G390 
A22G64QG 
A220^10 
A220642G 
A220643G 

A220^50 
A22Q6460 
A220647G 
A220£^8G 
A220649G 
A2206500 
A2206510 
A2206520 
A22G6530 
A220&5S0 
A2206550 
A220&56Q 
A2206570 
A220G580 
A220S590 
A220bG00 
A220GG10 
A2206620 
A220663Q 
A22Q664Q 
A2206650 
A22G666Q 
A2206670 



SPACE 

ENABLE 01 0SVPSW>X'FF T 
ENARET LH 1,7,SVCGR 

LPSH OSVPSW 

EJECT 



ALLOU I/O AND EXTERNAL INT* 
RESTORE GENERAL REGISTERS 1-7 
RETURN TO CALLER 



SVC 15, DISABLE (CONSOLE) 



DISC5L 



SPACE 

01 

BC 

SPACE 



ATTSW,X*Ql f 

15>ENARET 
2 



SET ATTSVJri 
RETURN TO CALLER 



SVC 16, ENABLE (CONSOLE) 



SPACE 

ENACSL NI ATTSW,X f QO f SET ATTSNi=0 

BC 15>ENARET RETURN TO CALLER 

EJECT 

* SVC 19, SET WAIT STATE * 

* * 

* THE SVC CALLING SEQUENCE SVC 19 WILL SET THE MAIT STATE BIT T 0N T * 

* IN THE CURRENT PSW, ALL I/O AND EXTERNAL INTERRUPTIONS WILL BE * 

* ENABLED . * 

* * 

* WHEN AN I/O OR EXTERNAL INTERRUPTION OCCURS, THE CONTROL PROGRAM * 

* WILL BE ENTERED. THE WAIT STATE BIT MILL BE SET ? OFF f IN THE OLD * 

* PSW AT THE POINT OF INTERRUPTION AND CONTROL WILL BE RETURNED * 

* EITHER TO THE POINT OF INTERRUPTION BY LOADING THE OLD PSW OR TO * 

* A PREDETERMINED LOCATION, THE OLD PSW AT THE POINT OF INTERRUP- * 

* TION IS ALSO STORED IN A PREDETERMINED LOCATION, * 

SPACE 2 

01 0SVPSW+l,X f Q2 f 1 TO WAIT STATE BIT IN OSVPSW 

BC 15,B, r ABLE GO TO ENABLE 

EJECT 

SIMULATOR INTERRUPTION AND RETURN 



NAITST 



WHEN AN INTERRUPTION OCCURS, CONTROL WILL BE GIVEN TO THE CONTROL 
PROGRAM, AS A RESULT, THE CONTROL PROGRAM MAY RETURN CONTROL 
EITHER TO THE POINT OF INTERRUPTION OR TO A PREDETERMINED LOCA- 
TION, 

IN THE LATTER CASE, THE OLD PSW AT THE POINT OF INTERRUPTION WILL 
BE STORED IN A DOUBLE WORD AT A PREDETERMINED ADDRESS, IN AD- 



A22G6680 
A22G&690 
A2206700 
A2206710 
A22G6720 
A22G6730 
A22G6740 
A22G6750 
A22G6760 
A2206770 
A22G6780 
A2206790 
A2206800 
A22G681G 
A22G6820 
A2206S3Q 
A220b8^D 
A22G6850 
A22G686Q 
A22G6870 
A22G6880 
A22G689G 
A22069GG 
A2206910 
A2206920 
A22G6930 
A22G69A0 
A2206950 
A22GG9GD 
A22GS97G 
A22G698D 
A2206990 
A22G7000 
A22G7G10 
A22G7G2G 
A22Q7030 
A220704G 
A22Q7G50 
A2207060 
A22G7070 
A22G7G80 
A22G7G90 
A22071GG 
A22G7I1G 
A22G712D 
A22G7130 
A2207M0 
A22G7150 
A22071G0 
A22G7170 
A2207180 
A2207190 
A2207200 
A22G7210 
A22G7220 



DITION, ALL I/O AND EXTERNAL INTERRUPTIONS WILL BE DISABLED. 



CONTROL HAY BE RETURNED TO THE POINT OF INTERRUPTION BY USING AN 
SVC CALLING SEQUENCE OF THE FORM= 



CNOP 

SVC 

DC 



2,4 
3 

ACRETPSW) 



* 

WHERE RETPSW DENOTES THE PREDETERMINED ADDRESS AT WHICH THE CON- * 

TROL PROGRAM HAS STORED THE OLD PSW. * 

THE CURRENT PSW WILL BE REPLACED BY THE CONTENTS OF THE DOUBLE * 

WORD WITH ADDRESS RETPSW, THUS RETURNING CONTROL TO THE POINT OF * 

INTERRUPTION. * 

vvv vvwuv 

SPACE 2 



Pr «TWTK- n n « « X ?1 



ROUTINE TO TREAT RETURN CALLING SEQUENCE 



INTERRUPTION PROCESSING 



?c irt -j* *P 



SPACE 

RETURN L WORK,2(I) (RETPSW) TO (TEHP) 

MVC 05VPSW(8),G(WORK) * 
BC 15>ENARET RETURN TO CALLER 

EJECT 

* AT THE TIME WHEN THE CONTROL PROGRAM IS LOADED INTO SYSTEM/360 

* MAIN STORAGE, PROGRAM INTERRUPTIONS ARE PROCESSED IN THE FOLLOW- 

* 2NG WAY= 

A PSW FOR WHICH I/O AND EXTERNAL INTERRUPTIONS ARE ENA- 
BLED > AND IN WHICH THE WAIT STATE BIT IS ONE AND THE IN- 
TERRUPTION CODE CONTAINS ALL ZEROS, WILL BE LOADED. 



PROGRAM INTERRUPTION PROCESSING 

WHEN A PROGRAM INTERRUPTION OCCURS, 
ENTERED. 



THE CONTROL PROGRAM WILL BE 



THE WAIT LIGHT ON THE SYSTEM CONTROL PANEL WILL BE TURNED 
ON AND, APART FROM THE PROCESSING OF I/O AND EXTERNAL IN- 
TERRUPTIONS > OPERATOR INTERVENTION WILL BE AWAITED. 

BY SUBMITTING AN SVC CALLING SEQUENCE OF THE FORM= 



CNOP 
SVC 



2,8 



A2207230 
A22G7240 
A2207250 
A2207260 
A2207270 
A2207280 
A2207290 
A2207300 
A2207310 
A2207320 
A2207330 
A2207340 
A22073S0 
A2207360 
A2207370 
A2207360 
A2207390 
A22G74Q0 
A22G7410 
A22D7420 
A2207430 
A220744G 
A2207450 
A22G7460 
A22G7470 
A2207480 
A2207490 
A2207500 
A2207510 
A22D7520 
A2207530 
A2207S40 
A2207550 
A220756G 
A2207570 
A22G7580 
A2207590 
A2207600 
A2207610 
A2207620 
A2207630 
A2207640 
A2207650 
A2Z07660 
A2207670 
A22076S0 
A2207690 
A22Q7700 
A22Q7710 
A220772G 
A22Q7730 
A2207740 
A2207750 
A2207760 
A2207770 



ANY SUBSEQUENT 
FOLLOWING WAY= 



THE PROGRAM OLD PSW IS PLACED IN THE DOUBLE WORD WITH ADDRESS 
PRPSW, I/O AND EXTERNAL INTERRUPTIONS ARE DISABLED. AND CONTROL 
IS RETURNED TO THE INSTRUCTION WITH ADDRESS PRRET. 



X 
X 
X 
X 
X 
X 
X 
* 
X 
X 
* 
X 
X 

X 

vy \r v vr v w v 



PRPSW 



DC 
DS 



A(PRRET) 
D 

PROGRAM INTERRUPTIONS WILL BE PROCESSED IN THE 



EXTERNAL INTERRUPTION PROCESSING 

WHEN A EXTERNAL INTERRUPTION OCCURS, THE CONTROL 
ENTERED. 



PROGRAM WILL BE 



AT THE TIME WHEN THE CONTROL PROGRAM IS LOADED INTO SYSTEM/360 
MAIN STORAGE, AND WHEN AN EXTERNAL INTERRUPTION OCCURS DUE TO AN 
EXTERNAL SIGNAL, EXTERNAL INTERRUPTIONS ARE IGNORED . THE EXTER- 
NAL OLD PSW IS LOADED INTO THE PSW. 



EJECT 



BY SUBMITTING AN SVC CALLING SEQUENCE OF THE FORM= 



CNOP 
I SVC 
DC 
DC 

EXTPSW DS 



6,8 
10 

ACTIMINT) 
A (KEY INT) 
D 



ANY SUBSEQUENT EXTERNAL INTERRUPTIONS RELATED TO THE TIMER OR TO 
THE INTERRUPT KEY ON THE SYSTEM CONTROL PANEL WILL BE PROCESSED 
IN THE FOLLOWING WAY= 

THE EXTERNAL OLD PSW IS PLACED IN THE DOUBLE WORD WITH ADDRESS 
EXTPSW, I/O AND EXTERNAL INTERRUPTIONS ARE DISABLED, AND CONTROL 
IS RETURNED EITHER TO THE INSTRUCTION WITH ADDRESS TIM INT (TIMER 
INTERRUPTION) OR TO THE INSTRUCTION WITH ADDRESS KEY INT (INTER- 
RUPT KEY INTERRUPTION). 



X 
X 
X 
* 

X 
X 
X 
X 
X 
* 
X 

* 

X 

X 
X 

X 
X 
X 

^t^p&XXXXXXXX XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX; 

SPACE 2 

XXXXXXXXXXXXXXXXXXXXXSXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 



IF THE VALUES TIMINT OR KEYINT 
TERRUPTION WILL BE IGNORED. 



ARE ZERO, THE CORRESPONDING IN' 



A2207780 
A2207790 
A2207S0G 
A2207810 
A22G7820 
A2207830 
A220734G 
A2207850 
A2207S60 
A2207870 
A2207880 
A2207890 
A2207900 
A2207910 
A2207920 
A2207930 
A2207940 
A2207950 
A2207960 
A2207970 
A2207980 
A2207990 
A2208000 
A2208010 
A2208020 
A2208030 
A2208040 
A22G8050 
A22G8060 
A2208070 
A2208030 
A220S090 
A2208100 
A220B110 
A2208120 
A2208130 
A2208140 
A22G815G 
A22081&0 
A22C8170 
A22G8180 
A2208190 
A2203200 
A22082I0 
A2208220 
A2208230 
A2203240 
A22C3250 
A2208260 
A22GB270 
A2203280 
A2208290 
A2208300 
A2208310 
A2208320 



PROCESSING OF PROGRAM INTERRUPTIONS 



PRINT 



SPACE 

ST 

L 

HVC 
L 

HVC 
NI 
LPSH 
EJECT 



BASE>PRBASE 

BASE>PRPSyA 

0(8 > BASE )>0PRPS14 

BASE>PRBASE 

OPRPSN+5(3),PRRETA 

OPRPSl4,X f 00 T 

OPRP5I4 



ENTER HERE AFTER SVC 6 
OPRPSH TO (PRPSH) 



PRRET TO OPRPSfsKA) 

DISABLE I/O AND EXTERNAL INT. 

LOAD OPRPSU-INTERRUPT 



PROCESSING OF EXTERNAL INTERRUPTIONS 



WW ■«■' V V> V V V- 

* * ■srsoor ■» *t * 

SPACE 

EXTINT STM BASE >W0RK >EXBASE 

L BASE>EXTPSW 

TH OEXPSW+3>X T 80 f 

BC 5>EXTIMR 

TH 0EXPSU+3,X r 4G f 

BC 6>EXTRET 

LA KORK>KEYINA 

CLC KEYINA(3),KEYIHAU 

BC 15>EXT0UT 

EXTIMR LA KORK>TIMINA 

CLC TIHINA(3),TIMINAU 

EXTOUT BC 8>EXTRET 

NI OEXPSM*I,X f FD f 

HVC 0(8, BASE )>0EXPS4 

HVC OEXP5£4*5(3),l(HORK) 

LH BASE >^0RK ,EXBASE 

NI OEXPSy,X'00 f 



EXTRET 



LPSW 0EXPSS4 
EJECT 

x» yg> vr x» y ag S£S£ "W Sit St V 3Z w V \* -V x» w -vy \* \* w vr v» 



ENTER HERE AFTER SVC 10 

TEST FOR TIBER INTERRUPTION 
YES-BRANCH 

NO-TEST FOR INTERRUPT KEY 
NO-RETURN TO POINT OF INT. 
SAVE KEY INT 

IS INTERRUPT KEY EXPECTED 
SAVE TIMINT 

IS TIMER INTERRUPTION EXPECTED 
NO-RETURN TO POINT OF INT. 
0 TO l^IT STATE BIT IN OEXPSH 
YES-SAVE OLD EXTPSN 
TIMINT OR KEYINT TO OEXPSW(A) 

DISABLE I/O AND EXTERNAL INTER- 
RUPTIONS - ENTER HERE BEFORE 
SVC 10 

LOAD 0EXPSS4 - INTERRUPT 



THE F0LL0HING SVC CALLING SEQUENCE MILL ENABLE THE SIMULATOR TO * 
VERIFY THAT AN I/O DEVICE WITH A PARTICULAR SYSTEM/360 ADDRESS * 

HAS THE CORRECT PROPERTIES. * 

0 * 

X'QDDDV * 

C'TTTP * 

X'SS* * 

AL3CERROR) * 



I/O DEVICE VERIFICATION 



CHOP 
I SVC 
DEV360 DC 
DEVTYP DC 
DEVSPF DC 

DC 

1*12 



A2208330 

A22Q3340 
A2208350 
A22G8360 
A2208370 
A2208380 
A2208390 
A2205400 
A2205410 
A22Q3420 
A220M30 
A22G844G 
A220845G 
A220S%0 
A2208470 
A220S480 
A22G349G 
A2208500 
A2208510 
A22G3520 
A22G8530 
A2208540 
A22Q8550 
A22G8560 
A2205570 
A2208580 
A2208590 
A22G8600 
A22C3610 
A2208620 
A2208630 
A2208G40 
A2208650 
A2203660 
A2208670 
A2208680 
A2208690 
A2208700 
A2208710 
A22G8720 
A2208730 
A2208740 
A2203750 
A22G876G 
A2203770 
A2203780 
A2208790 
A2208800 
A2208810 
A22G8820 
A2208830 
A2208840 
A22G8850 
A22QS860 
A2208870 



WHEN THE CONTROL PROGRAM IS ENTERED WITH THIS CALLING SEQUENCE, 
THE UNIT CONTROL BLOCK CUCB) ASSOCIATED WITH THE DEVICE HAVING 
ADDRESS DDD IS EXAMINED . 

IF THIS DEVICE IS OF THE TYPE TTTT AND HAS SPECIAL FEATURES COR- 
RESPONDING TO SS, CONTROL IS RETURNED TO THE SIMULATOR AT AD- 
DRESS 1*12. 

IF THE UCB DOES NOT EXIST, OR IF ONE OR BOTH OF TTTT AND S5 
ARE INVALID, CONTROL IS RETURNED TO THE SIMULATOR AT ADDRESS 
ERROR. 

THE BIT STRUCTURE OF THE QUANTITY S5 FOR THE DEVICES SUPPORTED 
BY THE CONTROL PROGRAM IS PRESENTED IN THE FOLLOWING TABLE. SS 
CONSISTS OF ONE BYTE, THE BITS OF WHICH ARE DENOTED, FROM LEFT TO 
RIGHT, AS B0,B1,...,B7. BITS WHICH ARE NOT MENTIONED IN THIS 
TABLE HAVE THE VALUE 0. 



* 


DEVICE 


SPECIAL FEATURE BYTE (SS) 


* 


(TTTT) 








1442 


B7=0 


NO CARD-IMAGE FEATURE 




2501,2520 


B7=l 


CARD-IMAGE FEATURE 




1443 


B7=0 


120 PRINT POSITIONS 






B7=l 


144 PRINT POSITIONS 




2540 


B7=0 


NO COLUMN BINARY FEATURE 






B7=l 


COLITO BINARY FEATURE 




1403 


B7=0 


100 PRINT POSITIONS 


* 




B7=l 


132 PRINT POSITIONS 




1052 


ALL ZEROS 


* 


2671 


ALL ZEROS 


* 


2311 


ALL ZEROS 




2400 


B7=l 


7-TRACK TAPES 


* 




86=0 


NO DATA CONVERTER 






B6=l 


DATA CONVERTER 






B5=l 


9-TRACK TAPES 



SPACE 2 



2&X££&LS£&i 3£ 2& -S£ J£5i ^S^t OkC it i£ A2 



ROUTINE TO VERIFY TYPE AND CHARACTERISTICS OF A DEVICE 



A2208S30 
A22C8890 
A2205900 
A2206910 
A2208920 
A2208930 
A2203940 
A2208950 
A22G3960 
A22G8970 
A2208980 
A2208990 
A2209000 
A2209010 
A2209020 
A2209030 
A2209040 
A2209050 
A2209060 
A2209070 
A2209080 
A2209090 
A2209100 
A2209110 
A2209120 
A2209130 
A2209140 
A2209150 
A2209160 
A2209170 
A2209180 
A2209190 
A2209200 
A2209210 
A2209220 
A2209230 
A2209240 
A2209250 
A2209260 
A2209270 
A2209280 
A2209290 
A2209300 
A2209310 
A2209320 
A2209330 
A2209340 
A2209350 
A2209360 
A2209370 
A2209380 
A2209390 
A2209400 
A2209410 
A2209420 





SPACE 






VERIFY 


HVC 


TEMP(4),8(I) 


(TEMP)= 








(DEVSPF .OR . ( 1 . . . 1 .XOR . SPFEAT ) ) 




BAL 


LINK,GETUCB 


GET INDEX PAIR (J,K) OF UCB 




BC 


15>VERIFA 


ERROR-UCB DOES NOT EXIST 




BC 


15,VERIFA 


ERROR-UCB DOES NOT EXIST V1L1 




CLC 


DEVTYPC4,J),4(I) 


IS TYPE=DEVTYP(J) 




BC 


7,VERIFA 


NO-ERROR, RETURN TO CALLER 




XI 


TEHP,XTF f 


YES-VERIFY SPECIAL FEATURES 




oc 


TEMP(1),DEVSPF(J) 






TH 


TEMP,X f FF' 


IS (TEMP)=l....l 




BC 


12,VERIFA 


NO-ERROR, RETURN TO CALLER 




LA 


1,12(1) 


YES-VERIFICATION O.K., RETURN TO 


VERIFB 


ST 


I, TEMP 


CALLER 


VERIFA 


HVC 


OSVP5W+5(3),TEMPU 


RETURN TO CALLER 




BC 


15,ENARET 


* 




EJECT 







ROUTINE TO DETERMINE INDEX 



vr v v vr v> \* \f \r \r \r v> v» \J xr v \y v \j- \J- v \r <y <y \* vr \y vr v 



J OF UCB AND INDEX K OF CCB, 
GIVEN THE DEVICE ADDRESS 



A PARTICULAR SYSTEM/360 DEVICE AD- 
IT MAY BE ENTERED BY 



THIS ROUTINE DETERMINES, FROM 
DRESS, THE CORRESPONDING INDEX PAIR (J,K). 
ONE OF TWO CALLING SEQUENCES, 

BAL LINK,INTUCB 

- OR - 
BAL LINK,GETUCB 

IN THE FIRST CASE, THE DEVICE ADDRESS WILL BE IN OIOPSW, AND IN 
THE SECOND CASE, THE DEVICE ADDRESS MILL BE AT ADDRESS 1+2. 

IF A UNIT CONTROL BLOCK DOES NOT EXIST FOR THIS DEVICE, CONTROL 
WILL BE RETURNED TO ADDRESS LINK. OTHERWISE, CONTROL WILL BE 
RETURNED TO ADDRESS LINK +4. 

THE ROUTINE USES THE CHANNEL TABLE AND THE CHANNEL CONTROL BLOCK. 





SPACE 






INTUCB 


LA 


Z>dXOPSH 


OIOP5W TO I 


GETUCB 


SR 


p,p 


^CHANNEL NUMBER TO P 




IC 


P,2(I) 






CLI 


2CI),X t 07 f 


IS CHANNEL NUMBER LESS THAN 7 




BCR 


10, LINK 


NO-ERROR, RETURN TO (LINK) 




SLL 


P,2 


CHTAB(P) TO K 




L 


K,CHTAB(P) 






LTR 


CHPTR,K 


is (K)=a 




BCR 


8, LINK 


YES ERROR CHANNEL NOT FOUND V1L1 




BCR 


8, LINK 


YES-ERROR, RETURN (DELETED) V1L1 


GETUCA 


L 


WORK , DEVTAB ( CHPTR ) 


NO-IS LIST EXHAUSTED 




LTR 


WORK, WORK 






BC 


8,4CLINK) 


YES ERROR UNIT NOT FOUND V1L1 


* 


BCR 


8, LINK 


YES-ERROR, RETURN (DELETED) V1L1 



A220943G 
A22G944G 
A2209450 
A22G946G 
A22G947G 
A2209471 
A2209480 
A22G9490 
A2209500 
A2209510 
A2209520 
A2209530 
A2209540 
A22Q9550 
A22G9560 
A22G9570 
A2209580 
A22G9590 
A22G9600 
A2209610 
A22G9G20 
A2209630 
A2209640 
A2209650 
A2209660 
A2209670 
A22G96SG 
A22G9690 
A2209700 
A22097I0 
A2209720 
A2209730 
A2209740 
A2209750 
A2209760 
A2209770 
A22G9780 
A2209790 
A2209800 
A2209810 
A2209820 
A2209830 
A22G9340 
A2209850 
A2209860 
A2209870 
A22098O0 
A2209890 
A2209900 
A2209910 
A2209915 
A2209920 
A2209930 
A22Q9940 
A22G9945 



CLC DEVTAB(1,CHPTR),3(I) MO-IS NEXT DEVICE CORRECT A2209950 

BC 8>GETUCC YES-RETURN A22G9960 

LA CHPTR,4(CHPTR) NO~CHPTR*4 TO CHPTR A2209970 

BC 15,GETUCA TRY NEXT DEVICE A220998D 

GETUCC L J,DEVTAB(CHPTR) DEVICE FOUND, (CHPTR) TO J A22Q9990 
BC 15>8(LINK) RETURN LINK ^8 V1L1 A2210000 

* BC 15,4(LINK) RETURN TO ( LINK )W DELETED) V1L1 A22I0Q05 
EJECT A22100I0 

^^******s*************************^ A2210020 

* * A221Q03Q 

* I/O REQUESTS= * A2210040 

* * A221G050 

* THREE TYPES OF I/O REQUESTS MAY BE SUBMITTED TO THE CONTROL PRO- * A221GG&0 

* GRAM. THESE THREE TYPES ARE- * A2210070 

* * A2210050 

* I/O REQUEST AND WAIT * A2210090 

* THE CONTROL PROGRAM HILL RETURN CONTROL TO THE SMJ- * A2210100 

* LATOR ONLY WHEN ALL ACTIVITY RELATIVE TO THE I/O OP- * A2210110 

* ERA T ION HAS BEEN TERMINATED. * A2210I20 

* * A2210130 

* I/O REQUEST AND CONTINUE * A221014G 

* THE CONTROL PROGRAM WILL RETURN CONTROL TO THE SIMU- * A2210150 

* LATOR AS SOON AS POSSIBLE AFTER HAVING ACCEPTED THE * A2210160 

* REQUEST. I/O INTERRUPTIONS RELATED TO SUCH A REQUEST * A2210170 

* WILL INTERRUPT THE SIMULATOR AND MILL TRANSFER CON- * A2210180 

* TROL TO THE CONTROL PROGRAM. THE CONTROL PROGRAM * A221Q19D 

* WILL PRESERVE ALL INFORMATION RELATED TO THE I/O IN- * A2210200 

* TERRUPTION AND, IF THIS INFORMATION INDICATES THAT * A2210210 

* THE I/O REQUEST IS TERMINATED, WILL RETURN CONTROL TO * A2210220 

* THE SIMULATOR AT A PRE-DETERMINED LOCATION. OTHER- * A2210230 

* WISE, CONTROL WILL BE RETURNED TO THE SIMULATOR AT * A221Q2*0 

* THE POINT OF INTERRUPTION. * A2210250 

* * A22102b0 

* I/O REQUEST AND INTERRUPT AT CHANEL END * A2210270 

* THIS REQUEST IS SIMILAR TO THE I/O REQUEST AND CON- * A2210280 

* TINUE, EXCEPT THAT, IN THE ABSENCE OF UNUSUAL CONDI- * A2210290 

* HONS, THE CONDITION CHANNEL END WILL ALSO CAUSE THE * A22103C0 

* CONTROL PROGRAM TO RETURN CONTROL TO THE SIMULATOR AT * A2210310 

* A PRE-DETERMINED LOCATION. * A2210320 

* * A2210330 

* ***** * A221G340 

* * A2210350 

* I/O REQUEST AND WAIT * A2210360 

* * A2210370 

* THE SVC CALLING SEQUENCE FOR AN I/O REQUEST AND WAIT HAS THE FOL- * A2210380 

* LOWING FORM= * A22I0390 

* * A221G400 

* CHOP 4,8 * A221G410 

* I SVC 11 * A221G420 

* DEV3G0 DC X'OBDD' * A221G430 

* CAWADD DC A(CCWADD) * A2210440 

* STATUS OS C * A221G45G 

* SNSADD DS 3C * A221G46G 

* SVCCSW DS D * A221G470 

* EXCRET ANY FOUR-BYTE INSTRUCTION (ADDRESS 1+20) * A22104S0 



NRMRET ANY INSTRUCTION 



(ADDRESS im) 



EJECT 



IN THIS CALLING SEQUENCE, DDD DENOTES THE SYSTEM/360 ADDRESS OF 
THE DEVICE FOR NHICH THE I/O REQUEST IS INTENDED, AND CAWADD DE- 
NOTES THE ADDRESS OF THE FIRST CCW TO BE EXECUTED. 

THERE IS NO RESTRICTION ON THE CCW'S WHICH HAY BE PRESENTED. IN 
PARTICULAR, A STRING OF CCW'S CONNECTED BY EITHER DATA CHAINING 
OR COMMAND CHAINING IS PERMITTED. 

THE BYTE AT ADDRESS STATUS IS TREATED BY THE CONTROL PROGRAH AS 
TWO HEXADECIMAL DIGITS, STRTBT AND ERRTYP. 

ON RECEIPT OF THE I/O REQUEST, STRTBT AND ERRTYP WILL BOTH BE SET 
TO ZERO* 

STRTBT IS SIGNIFICANT ONLY IN THE I/O REQUEST AND CONTINUE/INTER- 
RUPT AT CHANNEL END CALLING SEQUENCES. IN THE I/O REQUEST AND 
MAIT, IT MILL ALWAYS CONTAIN THE VALUE ONE (PHYSICAL I/O OPERATION 
INITIALIZED AT THE DEVICE) WHEN CONTROL IS RETURNED TO THE SIMU- 
LATOR. 

CONTROL WILL BE RETURNED TO THE SIMULATOR AT ADDRESS NRMRET WITH 
ERRTYP=0 (NO EXCEPTIONAL CONDITIONS ENCOUNTERED) OR AT ADDRESS 
EXCRET FOR THE FOLLOWING CONDITIONS= 

— NO UCB EXISTS FOR THIS DEVICE 
ERRTYP-2 



THE DEVICE OR ITS ASSOCIATED CONTROL UNIT, 
CHANNEL IS IN A NON -OPERATIONAL STATE 
ERRTYP-1 



SUBCHANNEL OR 



CONDITION HAS BEEN DE- 



A PROGRAM CHECK OR PROTECTION CHECK 
TECTED BY THE CHANNEL 
ERRTYP=3 

A UNIT CHECK CONDITION HAS OCCURRED 
ERRTYP=0 



A SENSE OPERATION WILL BE PERFORMED ON THE DEVICE AND 
A MAXIMUM OF 3 BYTES OF SENSE INFORMATION WILL BE 
STORED, STARTING AT ADDRESS SN5ADD 

— A UNIT EXCEPTION OR CHAINING CHECK CONDITION HAS OCCURRED 
ERRTYP^O 

NOTE= THE FIRST TWO OF THESE EXCEPTIONAL CONDITIONS ARE MUTU- 
ALLY EXCLUSIVE, BUT THE LAST THREE MAY OCCUR CONCURRENT- 



A221Q490 
A221050G 
A22I0510 
A2210520 
A2210530 
A221Q540 
A221G550 
A221G560 
A221G57Q 
A2210580 
A2210590 
A221G6Q0 
A221G610 
A2210620 
A2210S30 
A221G&$0 
A2210650 
A2210&60 
A221067Q 
A2210660 
A221069Q 
A2210700 
A221071G 
A221072G 
A2210730 
A2210740 
A221G750 
A2210760 
A2210770 
A2210780 
A221G79G 
A22108GG 
A2210810 
A221082Q 
A2210830 
A22106^G 
A221Q85Q 
A2210860 
A221G870 
A2210880 
A22ID89D 
A22IG9G0 
A221G910 
A221092Q 
A2210930 
A2210940 
A221095G 
A2210960 
A221D970 
A221098D 
A2210990 
A2211000 
A2211G10 
A2211020 
A2211030 



* LY. 
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EJECT 



* 

* 



EXTERNAL AMD I/O INTERRUPTIONS RELATED TO OTHER I/O REQUESTS WILL 
BE ALLOWED TO OCCUR DURING THE PERIOD IN WHICH THE CONTROL PRO- 
GRAM IS WAITING FOR THE I/O REQUEST AND WAIT TO TERMINATE. SUCH 
INTERRUPTIONS WILL BE PROCESSED NORMALLY. 

AN I/O REQUEST AND WAIT CALLING SEQUENCE IS NOT ALLOWED WHEN THE 
SIMULATOR IS IN THE DISABLED STATE. 

I/O REQUEST AND CONTINUE 

THE SVC CALLING SEQUENCE FOR AN I/O REQUEST AND CONTINUE HAS THE 
FOLLOWING FORH= 



cnop 

I SVC 
DEV360 DC 
CAWADD DC 
STATUS DS 
SNSADD DS 
SVCCSW DS 
SVCPSW DS 
DC 
DC 



4,8 
2 

X f QDDD f 

A(CCWADD) 

C 

3C 

D 

D 

A(NRHRET) 
A(EXCRET) 



ACCRET ANY INSTRUCTION (ADDRESS 1*36) 

IN THIS CALLING SEQUENCE, DDD DENOTES THE SYSTEM/369 ADDRESS OF 
THE DEVICE FOR WHICH THE I/O REQUEST IS INTENDED, AND CAWADD DE- 
NOTES THE ADDRESS OF THE FIRST CCW TO BE EXECUTED. 

THERE IS NO RESTRICTION ON THE CCW'S WHICH MAY BE PRESENTED. IN 
PARTICULAR, A STRING OF CCN'S CONNECTED BY EITHER DATA CHAINING 
OR COMMAND CHAINING IS PERMITTED. 

THE BYTE AT ADDRESS STATUS IS TREATED BY THE CONTROL PROGRAM AS 
TWO HEXADECIMAL DIGITS, STRTBT AND ERRTYP. 

ON RECEIPT OF THE I/O REQUEST, STRTBT AND ERRTYP WILL BOTH BE SET 
TO ZERO. 

STRTBT WILL BE SET TO ONE ONLY WHEN THE PHYSICAL I/O OPERATION 
HAS BEEN INITIALIZED AT THE DEVICE. WHEN CONTROL IS RETURNED TO 
THE SIMULATOR AT ADDRESS ACCRET (REQUEST ACCEPTED), STRTBT WILL 
INDICATE WHETHER OR NOT THE PHYSICAL I/O OPERATION HAS BEEN INI- 
TIALIZED. 



A2211G4G 
A2211Q5Q 
A2211G&Q 
A2211070 
A2211080 
A2211090 
A2211100 
A221I110 
A2211120 
A2211I30 
A2211140 
A2211150 
A2211160 
A2211I70 
A22I11B0 
A22I1190 
A2211200 
A2211210 
A2211220 
A2211230 
A2211240 
A2211250 
A2211260 
A2211270 
A221128D 
A2211290 
A221130G 
A2Z1131Q 
A221132Q 
A221I330 
A2211340 
A2211350 
A2211360 
A221I370 
A221I380 
A2211390 
A2211400 
A221141G 
A2211420 
A221143Q 
A221144G 
A221145Q 
A2211460 
A221147G 
A22114S0 
A2211490 
A2211500 
A2211510 
A2211520 
A2211530 
A2211540 
A2211550 
A2211560 
A2211570 
A221158D 



* ...A.. * A221159Q 

* * A2211600 

EJECT A2211620 

*9Hf**9B***X#»*«**X***********#**^^ A221163Q 

* * A2211640 
*•."./... * A2211650 

* * A2211660 

* IF ANY OF THE ASSOCIATED CHANNEL, SUBCHANNEL, CONTROL UNIT OR DE- * A221167Q 

* VICE IS BUSY, THUS PRECLUDING INITIALIZATION OF THE I/O REQUEST, * A221168Q 

* THE CONTROL PROGRAM WILL PLACE THIS REQUEST ON A QUEUE UNTIL ALL * A2211690 

* PARTS OF THE DEVICE PATH BECONE FREE- * A2211700 

* A2211710 

* CONTROL WILL BE RETURNED TO THE SIMULATOR UNDER ONE OF THE FOL- * A2211720 

* LOWING CONDITIONS= * A2211730 

* * A2211730 

* — PHYSICAL I/O OPERATION STARTED * A22I1750 

* STRTBT=1 * A221176G 

* RETURN TO ADDRESS ACCRET * A2211770 

* * A2211780 

* — DEVICE PATH (CHANNEL, SUBCHAf^EL, CONTROL UNIT OR DEVICE) * A2211790 

* BUSY * A2211800 

* I/O REQUEST ADDED TO REQUEST QUEUE * A2211810 

* STRTBT=G * A2211820 

* RETURN TO ADDRESS ACCRET * A2211830 

* * A2211840 

* — PHYSICAL I/O OPERATION STARTED AND TERMINATED WITH NO EXCEP- * A2211850 

* TIGNAL CONDITIONS * A2211860 

* STRTBT=1 * A2211870 

* PLACE OSVPSW AT SVCP5W * A2211880 

* ADDRESS ACCRET TO THE ADDRESS PART OF SVCPSW * A2211890 

* RETURN TO ADDRESS NRNRET WITH ALL I/O AND EXTERNAL * A2211900 

* INTERRUPTIONS DISABLED * A2211910 

* * A2211920 

* — EXCEPTIONAL CONDITION HAS PREVENTED THE STARTING OF THE I/O * A2211930 

* OPERATION * A22I1940 

* - OR - * A2211950 

* I/O OPERATION STARTED AND TERMINATED WITH AN EXCEPTIONAL * A2211960 

* CONDITION * £2211970 

* STRTBT=1 * A22I1980 

* PLACE OSVPSW AT SVCPSW * A221199D 

* ADDRESS ACCRET TO THE ADDRESS PART OF SVCPSW * A2212000 

* RETURN TO ADDRESS EXCRET WITH ALL I/O AND EXTERNAL * A2212010 

* INTERRUPTIONS DISABLED * A2212020 

* * A2212030 

* AN I/O INTERRUPTION RELATED TO THIS REQUEST WILL INTERRUPT THE * A2212G40 

* SIMULATOR AND WILL GIVE CONTROL TO THE CONTROL PROGRAM. IF EX- * A2212050 



* AMINATION OF THE INTERRUPTION INDICATES THAT ALL ACTIVITY RELATED * A2212060 

* TO THE REQUEST HAS NOT TERMINATED , CONTROL WILL BE RETURNED TO * A2212070 

* THE POINT OF INTERRUPTION. OTHERWISE, CONTROL WILL BE RETURNED * A2212080 

* TO ONE OF THE ADDRESSES NRMRET OR EXCRET, ACCORDING TO THE CON- * A2212090 

* DITIONS DESCRIBED BELOW. THE INPUT/OUTPUT OLD PSW WILL BE PLACED * A2212100 

* IN THE DOUBLE WORD WITH ADDRESS SVCPSW, AND ALL I/O AND EXTERNAL * A2212110 

* INTERRUPTIONS WILL BE DISABLED. * A2212120 

* * A2212130 



* * A221214Q 

* * A2212150 
*s**gx**»*************************************^^ A22121G0 

EJECT A2212170 

\# ^rxr.v r' vy vr >y \» v v vr v» x» u \r \r vy .Vf ,\r,V V.V V ,V M V x».vr v v» w w \f wr w w v vv» vv w \y ^.V.-M M v wwv xj-.vr vr w w- AOOI Ol Drt 

* * A22I2190 

* ..•/... * A2212200 

* * A2212210 

* THE FOLLOWING EXCEPTIONAL CONDITIONS HAY OCCUR DURING THE EX ECU- * A2212220 

* HON OF AN I/O REQUEST= * A2212230 

* * A221224Q 

* — NO UCB EXISTS FOR THIS DEVICE * A2212250 

* ERRTYP=2 * A221226Q 

* * A2212270 

* — THE DEVICE OR ITS ASSOCIATED CONTROL UNIT, SUBCHANNEL OR * A2212280 

* CHANNEL IS IN A NON-OPERATIONAL STATE * A2212290 

* ERRTYP=1 * A2212300 

* * A2212310 

* — A PROGRAM CHECK OR PROTECTION CHECK CONDITION HAS BEEN DE- * A2212320 

* TECTED BY THE CHANNEL * A2212330 

* ERRTYP=3 * A2212340 

* * A221235Q 

* — A UNIT CHECK CONDITION HAS OCCURRED * A2212360 

* ERRTYP=0 * A2212370 

* * A221238G 

* A SENSE OPERATION WILL BE PERFORMED ON THE DEVICE AND * A2212390 

* A MAXIMUM OF 3 BYTES OF SENSE INFORMATION WILL BE * A2212400 

* STORED, STARTING AT ADDRESS SNSADD * A22124I0 

* * A2212420 

* — A UNIT EXCEPTION OR CHAINING CHECK CONDITION HAS OCCURRED * A2212430 

* ERRTYP=Q * A2212440 

* * A2212450 

* NOTE= THE FIRST TWO OF THESE EXCEPTIONAL CONDITIONS ARE MUTU- * A221246G 

* ALLY EXCLUSIVE, BUT THE LAST THREE MAY OCCUR CONCURRENT- * A2212470 

* LY« * A2212480 

* * A2212490 

* AN I/O REQUEST AND CONTINUE CALLING SEQUENCE FOR A DEVICE IN THE * A2212500 

* BUSY OR CHAINED STATE IS NOT ALLOWED WHEN THE SIMULATOR IS IN THE * A2212510 

* DISABLED STATE • * A221252G 

* * A2212530 

* ***** * A221254G 

* * A221255G 

* .../... * A221256Q 

* * A2212570 

EJECT A2212590 
*********************************************************************** A2212G00 

* * A2212G10 

* „./.„ * A2212620 

* * A2212630 

* I/O REQUEST AND INTERRUPT AT CHANNEL END * A2212640 

* * A2212650 

* THE SVC CALLING SEQUENCE FOR AN I/O REQUEST AND INTERRUPT AT * A2212GG0 

* CHANNEL END HAS THE FOLLOWING F0RM= * A221Z670 

* * A2212630 



CHOP 
I SVC 
DEV3GQ DC 
CAWADD DC 
STATUS DS 
SNSADD DS 
SVCCSW DS 
SVCPSW DS 
DC 
DC 

ACCRET ANY 



4,8 

1 

X f GDDD f 

A(CCWADD) 
C 
3C 
D 
D 

ACMRHRET) 
A(EKCRET) 
INSTRUCTION (ADDRESS 1+36) 



* THIS CALLING SEQUENCE PERFORMS THE SAME FUNCTIONS AS THE I/O RE- 

* QUEST AND CONTINUE, EXCEPT FOR THE FOLLOWING ADDITIONAL FACILITY 

* OFFERED BY THE I/O REQUEST AND INTERRUPT AT CHANNEL END = 



WHEN A CHANNEL END CONDITION OCCURS WITHOUT THE DEVICE END CONDI- 
TION, A TEST IS MADE FOR THE PRESENCE OF A UNIT EXCEPTION OR UNIT 
CHECK CONDITION. 

IF NEITHER OF THESE CONDITIONS IS PRESENT, THE INPUT/OUTPUT OLD 
PSW IS PLACED IN THE DOUBLE WORD WITH ADDRESS SVCPSW, AND CONTROL 
IS RETURNED TO LOCATION NRMRET WITH I/O AND EXTERNAL INTERRUP- 
TIONS DISABLED. 

OTHERWISE (CHANNEL END ACCOMPANIED BY UNIT CHECK OR UNIT EXCEP- 
TION), CONTROL IS RETURNED TO THE POINT OF INTERRUPTION. THUS, 
ON DEVICES FOR WHICH CHANNEL END AND DEVICE END OCCUR SEPARATELY, 
TWO RETURNS TO NRHRET HAY BE EFFECTED. 



* CHANNEL STATUS INFORMATION * 

& 3( 

* INFORMATION FROM THE CSW'S WHICH MAY BE GENERATED AS A CONSEQUENCE * 

* OF THE EXECUTION OF AN I/O REQUEST IS ACCUMULATED IN THE DOUBLE * 

* WORD SVCCSW. ON RECEIPT OF AN I/O REQUEST, THE CONTROL PROGRAM * 

* SETS THE CONTENTS OF SVCCSW TO ZERO. * 

* * 

* .../... * 
EJECT 



« . ./ • * * 

THE EXECUTION OF A CHAIN OF I/O COTtiANDS WILL PRODUCE AT MOST ONE 
NON-ZERO VALUE FOR EACH OF THE CO«iAND ADDRESS AND COUNT PARTS OF 
A CSW. (THE CONTROL PROGRAM WILL IGNORE ANY SCW IN WHICH THE 
PROGRAM - CONTROLLED INTERRUPTION IS THE ONLY STATUS BIT PRESENT. 
THE VALUES OF THESE QUANTITIES WILL BE SET INTO THE APPROPRIATE 
BYTES OF SVCCSW. 



* IF NON-ZERO VALUES OF THE TWO STATUS BYTES ARE PRODUCED DURING * 



A2212690 
A2212700 
A2212710 
A221272Q 
A2212730 
A221274Q 
A2212750 
A22127&0 
A221277G 
A2212780 
A22I2790 
A2212800 
A221281G 
A2212820 
A2212830 
A22I28^D 
A2212850 
A2212860 
A2212870 
A2212880 
A2212890 
A2212900 
A2212910 
A2212920 
A2212930 
A2212940 
A2212950 
A2212960 
A2212970 
A2212930 
A2212990 
A221300D 
A2213010 
A2213020 
A2213030 
A2213G40 
A2213050 
A2213060 
A2213070 
A22I3030 
A221309D 
A2213I00 
A2213110 
A2213120 
A221313G 
A2213140 
A2213I50 
A221316G 
A2213170 
A2213180 
A2213190 
A2213200 
A2213210 
A2213220 
A2213230 
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9* 

9* 
9* 
9* 

9* 

* 

9* 
* 

% 
* 

9* 

9€ 
9* 

9? 



THE EXECUTION OF A CHAIN OF I/O COMMANDS, THE CONTROL PROGRAM WILL 
ACCUMULATE THE LOGICAL f OR f OF THIS STATUS INFORMATION IN THE AP- 
PROPRIATE BYTES OF SVCCSW. 

IF, WHEN A CHAIN OF I/O COMMANDS HAS TERMINATED, A UNIT CHECK 
STATUS BIT IS PRESENT IN SVCCSW, THE CONTROL PROGRAM MILL PERFORM 
A SENSE OPERATION AND WILL PLACE A MAXIMUM OF THREE BYTES OF 
SENSE INFORMATION STARTING AT ADDRESS 5NSADD. 

WHEN CONTROL IS RETURNED TO THE SIMULATOR WITH ERRTYP=1 OR 2, 
SVCCSW WILL ALWAYS CONTAIN ZERO, INDICATING THAT NO I/O OPERATION 
HAS STARTED FOR THE I/O REQUEST. 

WHEN CONTROL IS RETURNED WITH ERRTYP=3, THE I/O OPERATION HAS 
COMPLETELY TERMINATED, AND SVCCSW (AND, IN THE CASE OF UNIT 
CHECK, THE BYTES AT SNSADD) WILL DESCRIBE THE STATE OF THIS TER- 
MINATION. 



CHAINING OF I/O REQUESTS 

THE PARTICULAR STATE OF A DEVICE AT ANY MOMENT IS DETERMINED BY 
THE CONTROL PROGRAM FROM INFORMATION IN ITS ASSOCIATED UNIT CON- 
TROL BLOCK. THE CONTROL PROGRAM WILL TREAT EACH DEVICE AS BEING 
IN ONE OF THE FOLLOWING THREE STATES= 

BUSY THE CONTROL PROGRAM HAS STARTED ACTIVITY FOR SOME 

I/O REQUEST, BUT THIS ACTIVITY HAS NOT YET TERMI- 
NATED 

CHAINED NOT BUSY - AN SVC 1 OR SVC 2 CALLING SEQUENCE HAS 
BEEN RECEIVED FOR THE DEVICE, BUT IT CANNOT YET 
BE EXECUTED 

AVAILABLE NOT BUSY AND NOT CHAINED 

ANY I/O INTERRUPTION, EXCEPT AN ATTENTION INTERRUPTION, RECEIVED 
FOR A DEVICE WHICH IS IN THE AVAILABLE OR CHAINED STATE WILL BE 
IGNORED. 



X9t***9***X9**XXXXX**X*9**^^ 



9* 
* 
9* 
9* 

9f 



AVAILABLE STATE 

I/O REQUEST AND WAIT 

IF THE DEVICE FOR WHICH THE REQUEST IS RECEIVED IS IN THE 
AVAILABLE STATE, THE CONTROL PROGRAM WILL TRY TO START 
THE CORRESPONDING I/O OPERATION. IF THE STATUS OF ANY 
OF THE CHANNEL, SUBCHANNEL, CONTROL UNIT OR DEVICE PRE- 



A2213240 
A2213250 
A2213260 
A2213270 
A221328D 
A2213290 
A2213300 
A2213310 
A2213320 
A2213330 
A2213340 
A2213350 
A2213360 
A221337Q 
A2213380 
A2213390 
A2213400 
A221341Q 
A2213420 
A2213430 
A2213440 
A2213450 
A2213460 
A2213470 
A22I34B0 
A2213490 
A221350Q 
A22I3510 
A221352Q 
A2213530 
A221354G 
A2213550 
A2213560 
A2213570 
A22135S0 
A2213590 
A2213600 
A2213610 
A2213620 
A2213630 
A22I3640 
A2213650 
A2213669 
A2213670 
A22136B0 
A221369Q 
A221370Q 
A2213710 
A2213720 
A2213730 
A2213740 
A2213750 
A2213760 
A2213770 
A2213780 



* CLUDES INITIATION OF THE OPERATION, THE CONTROL PROGRAM * A221379Q 

* WILL f CYCLE* (*) ON THE SVC CALLING SEQUENCE UNTIL THE OP- * A22I3800 

* ERA T ION IS ACCEPTED. OTHERWISE, THE OPERATION MILL BE * A2213610 

* STARTED, THE BUSY STATE WILL BE SET AND THE CONTROL PRO- * A2213320 

* GRAH WILL CYCLE ON THE SVC CALLING SEQUENCE UNTIL ALL RE- * A2213330 

* LATED I/O INTERRUPTIONS HAVE BEEN RECEIVED AND PROCESSED. * A22I3840 

* * A2213850 

* (*) TO CYCLE MEANS THAT THE CONTROL PROGRAM WILL PLACE THE AD- * A22I3860 

* DRESS OF THE SVC INSTRUCTION INTO THE ADDRESS PART OF THE * A2213870 

* SUPERVISOR-CALL OLD PSW AND WILL THEN LOAD THIS PSW. THUS, * A2213630 

* THE CONTROL PROGRAM WILL RETURN TO THE SVC INSTRUCTION, WHICH * A2213899 

* WILL BE REPEATED UNTIL THE OPERATION CAN BE ACCEPTED. * A2213900 

* * A2213910 

* I/O REQUEST AND CONTINUE/ INTERRUPT AT CHANNEL END * A2213920 

* * A2213930 

* IF THE DEVICE FOR WHICH THE REQUEST IS RECEIVED IS IN THE * A2213949 

* AVAILABLE STATE, THE CONTROL PROGRAM WILL TRY TO START * A2213950 

* THE CORRESPONDING I/O OPERATION. IT WILL SET EITHER THE * A2213960 

* BUSY STATE (OPERATION STARTED) OR THE CHAINED STATE (OP- * A2213970 

* ERATION WAITING) AND WILL RETURN CONTROL TO THE SIMULATOR * A2213980 

* AT ADDRESS ACCRET. * A2213990 

* * A2214G00 

* * A2214010 

* BUSY OR CHAINED STATE * A2214020 
, * * A2214G30 

* ANY I/O REQUEST RECEIVED FOR A DEVICE IN THE BUSY OR CHAINED * A221404Q 

* STATE WILL CAUSE THE CONTROL PROGRAM TO CYCLE ON THE NEW SVC CAL- * A2214050 
* * LING SEQUENCE. * A2214060 

* * A2214G70 

* ***** * A2214089 

* * A2214G9Q 

* SETTING UP OF THE SEREP INTERFACE * A2214XGG 

* * A2214110 

* IF CERTAIN T CATASTROPHIC* CONDITIONS ARE ENCOUNTERED DURING THE * A2214I20 

* EXECUTION OF AN I/O REQUEST, THERE WILL BE NO RETURN FROM THE * A2214130 

* CONTROL PROGRAM TO THE SIMULATOR. INSTEAD, THE STANDARD SEREP * A221414Q 

* INTERFACE WILL BE SET UP. * A221415G 

* * A22141b0 

* .../... * A2214170 

* * A22141SQ 

EJECT A221420Q 
*********************************************************************** A221421G 

* * A2214220 

* .../... * A2214230 

* * A2214240 

* DURING THE EXECUTION OF AN I/O REQUEST, ONE OF THE FOLLOWING CON- * A2214250 

* DITIONS MAY OCCUR= * A2214260 

* * A2214270 

* ONE OR MORE OF THE CHANEL STATUS INDICATIONS - CHANNEL * A2214280 

* CONTROL CHECK, INTERFACE CONTROL CHECK, CHANNEL DATA CHECK - * A2214290 

* IS DETECTED * A2214300 

* — A CHANEL OR DEVICE STATUS INDICATION WHICH SHOULD NOT OC- * A2214310 

* CUR IS DETECTED * A2214320 

* — A SENSE OPERATION CANNOT BE PERFORMED ON A DEVICE (SUCH A * A2214330 



SENSE OPERATION IS ATTEMPTED EACH TIME THE EXECUTION OF AN 
I/O REQUEST GIVES RISE TO A UNIT CHECK CONDITION) 

IN ALL THE ABOVE SITUATIONS, THE CONTROL PROGRAM WILL SET UP IN 
MAIN STORAGE THE ELEMENTS NECESSARY FOR THE STANDARD SEREP INTER- 
FACE. IT WILL LOAD A PSU IN WHICH I/O AND EXTERNAL INTERRUPTIONS 
ARE DISABLED , IN WHICH THE WAIT STATE BIT IS ONE AND FOR WHICH 
THE INTERRUPTION CODE BITS ARE ALL ONES* 

IN ALL OTHER CASES, CONTROL WILL BE RETURNED TO THE SIMULATOR. 



THE SIMULATOR MAY FIND IT NECESSARY, AS A RESULT 
TIONS UNDER WHICH AN I/O REQUEST HAS TERMINATED, 
SEREP INTERFACE (FOR EXAMPLE, THE CONDITION ERRTYP=1 MAY BE INTER- 
PRETED AS A SEREP CONDITION). 



THE FOLLOWING CALLING SEQUENCE SHOULD BE USED IN THE SIMULATOR TO 
REQUEST THAT THE CONTROL PROGRAM SET UP THE STANDARD SEREP INTER- 
FACE= 



* 
* 
* 
* 
* 

* 

* 

* 
* 

* 
* 
* 

* 
* 

* 
* 
* 
* 
* 

* 

* 
* 

* 

* 

* 

* 

* 

At V ,V ,V ,V V V V \' V V v y V 

EJECT 

* 



OF THE CONDI- 
TO SET UP THE 



I 

TYPE 



CNOP 
SVC 
DC 
DC 



2,4 
7 

X'TT' 

AL3CIOREQ) 



TT DENOTES THE TYPE OF INTERFACE WHICH IS REQUIRED. THUS= 



TT=0F 
TT=1F 
TT=3F 



INDICATES A CHANNEL FAILURE 
INDICATES A DEVICE FAILURE 
INDICATES A DEVICE-NOT-OPERATIONAL CONDITION 



IOREQ DEMOTES THE ADDRESS OF THE SVC INSTRUCTION IN THE CALLING 
SEQUENCE OF THAT I/O REQUEST WHICH GAVE RISE TO THIS SEREP CONDI- 
TION. 



REWIND AND REWIND AND UNLOAD CALLING SEQUENCES 

WHEN AN I/O REQUEST AND CONTINUE CALLING SEQUENCE IS USED TO RE- 
WIND OR TO REWIND AND UNLOAD A 2400 SERIES MAGNETIC TAPE UNIT, 
THE OPERATION WILL NORMALLY BE TERMINATED (AND THE SIMULATOR IN- 
TERRUPTED) ONLY WHEN THE DEVICE END SIGNAL IS RECEIVED FROM THE 
TAPE UNIT. 

THE TWO SVC CALLING SEQUENCES BELOW WILL ENABLE THE CONTROL PRO- 
GRAM TO TERMINATE THE OPERATION WHEN THE CHANNEL END SIGNAL IS 



* 
* 

* 

* 

* 
* 

* 
* 

* 

* 
* 
* 

* 
* 
* 
* 
* 

* 

* 

* 
* 

* 
* 

**************** 

* ****************** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



A2214340 
A2214350 
A2214360 
A2214370 
A221438Q 
A2214390 
A2214400 
A2214410 
A2214420 
A221443G 
A221444Q 
A2214450 
A22I446G 
A2214470 
A2214480 
A2214490 
A221450O 
A2214510 
A221452G 
A2214530 
A2214540 
A221455G 
A221456G 
A221457G 
A221453G 
A22I4590 
A2214600 
A221461G 
A2214620 
A2214630 
A2214640 
A2214650 
A22I4&6G 
A2214G70 
A2214680 
A2214690 
A2214700 
A221471Q 
A2214720 
A2214730 
A2214740 
A2214750 
A2214760 
A2214770 
A22147B0 
A2214790 
A2214800 
A22I481G 
A221482Q 
A221483G 
A221484G 
A2214850 
A2214S60 
A2214870 
A2214S80 



RECEIVED. IN THIS CASE, I/O INTERRUPTIONS FOR THE TAPE UNIT 
WHICH OCCUR AFTER THE CHANNEL END SIGNAL HAS BEEN RECEIVED WILL 
BE IGNORED. 



THE FOLLOWING SVC CALLING SEQUENCES ARE USED FOR 
THE REWIND AND UNLOAD FUNCTION S= 



chop 

I SVC 
-OR- 
I SVC 
BEV360 DC 
CAWADD DC 
STATUS DS 
SNSADD DS 
SVCCSW DS 
SVCPSW DS 
DC 
DC 



4,8 
13 



(REMIND) 



14 (REWIND AND UNLOAD) 

X'ODDD* 

A(CCWADD) 

C 

3C 

D 

D 

A(NRHRET) 
A(EXCRET) 



EJECT 



THE REWIND AND 



ACCRET ANY INSTRUCTION (ADDRESS 1+36) 

DDD REPRESENTS THE SYSTEM/360 ADDRESS OF THE 2400 SERIES MAGNETIC 
TAPE UNIT INVOLVED IN THE OPERATION, AND CAWADD DENOTES THE AD- 
DRESS OF THE FIRST CCW TO BE EXECUTED. 

WHEN A CHANNEL END CONDITION OCCURS WITHOUT DEVICE END, THE FOL- 
LOWING TESTS ARE MABE= 



REWIND 

REWIND AND UNLOAD 



HAS A UNIT EXCEPTION OR A UNIT CHECK CON- 
DITION OCCURRED 

HAS A UNIT EXCEPTION CONDITION OCCURRED 



IF NOT, CONTROL IS RETURNED TO THE SIMULATOR AT 
AND THE DEVICE END CONDITION WILL BE IGNORED. 



LOCATION NRMRET 



OTHERWISE, THE TERMINATION OF THIS OPERATION IS IDENTICAL TO 
THAT OF THE I/O REQUEST AND CONTINUE OPERATION. 

.../... 



EJECT 



THE CONTROL PROGRAM MAKES NO CHECK FOR THE VALIDITY OF THE COM- 
MAND CODE IN THE SIMULATOR-PROVIDED CCW. THUS, IN THE SIMULATOR 
A COMMAND CODE CORRESPONDING TO THE OPERATION TO BE PERFORMED 
MUST BE PLACED IN THE CCW. IF NOT, THE CONTROL PROGRAM WILL 
TREAT THE CALLING SEQUENCE AS AN I/O REQUEST AND CONTINUE, BUT 
WILL TERMINATE THE OPERATION AS A REWIND OR REWIND AND UNLOAD. 



A2214890 
A2214900 
A2214910 
A2214920 
A2214930 
A2214940 

* A2214950 

* A221496G 

* A2214970 

* A2214980 

* A2214990 

* A2215000 

* A2215010 

* A2215020 

* A221503G 

* A2215G40 
A2215050 
A2215060 
A2215070 
A221508Q 
A2215090 
A22151G0 
A2215110 
A2215120 
A2215130 
A2215140 
A2215150 
A2215160 
A2215170 
A2215180 
A2215190 
A22152C0 
A2215210 
A2215220 
A2215230 
A2215240 
A2215250 
A2215260 
A2215270 
A2215280 
A2215290 
A22153G0 
A2215310 
A2215320 
A2215330 
A221534D 
A22I5350 
A2215360 
A221537D 
A2215380 
A2215390 
A2215400 
A2215410 
A2215420 



I/O REQUEST AND WAIT ROUTINE 

THIS ROUTINE CONSISTS OF TOO DISTINCT PARTS. IN THE FIRST PART, 
THE I/O OPERATION IS STARTED (IF POSSIBLE) AND ANY IMMEDIATE CON- 
DITIONS ARE PROCESSED. CONTROL IS THEN RETURNED TO THE CALLING 
PROGRAM. 

THE SECOND PART IS ENTERED VIA THE I/O INTERRUPTION ROUTINE WHEN- 
EVER AN ASSOCIATED I/O INTERRUPTION OCCURS. THE INTERRUPTION 
CONDITIONS ARE PROCESSED AND CONTROL IS GIVEN TO THE UNSTAK ROU- 
TINE WITH OIOPSW CONTAINING THE PSW WHICH IS TO BE LOADED IN 
ORDER TO RETURN CONTROL TO THE CALLING PROGRAM. 



vvr w vy vr v v aj 





SPACE 






IOWAIT 


BAL 


LINK,GETUCB 


GET INDEX PAIR (J,K) OF UCB 


* 


BC 


15 , IOWERR 


ERROR -DEV NOT FOUNC DELETED) V1L1 




BC 


15, IOWERR 


ERROR-CHANNEL NOT FOUND V1L1 




BC 


15, IOWERR 


ERROR-DEVICE MOT FOUND V1L1 




TM 


5ENSW,X f 01 T 


IS SENSE SWITCH ON 




BC 


5,IOWSN5 


YES-BRAMCH 




BAL 


LINK,STRTIO 


NO-TRY TO START I/O OPERATION 




BC 


15,I0WTRM 


OPERATION TERMINATED 




BC 


15, IOWBSY 


DEVICE BUSY 




BC 


15, IOWBSY 


PATH BUSY 




BC 


15,IOWEXC 


EXCEPTIONAL CONDITION 




BC 


0,0 


CHANNEL END 




KVC 


DEVINT+l(3,J),AIOWIN 


START-SET DEVINT(J) 


IOWBSY 


ST 


I,0SVPSW+4 


I TO OSVPSW(A) 




BC 


15,ENARET 


RETURN TO CALLER 


IOWTRM 


AH 


I,BEC24 


SET RETURN ABDRESS=I+24 




BC 


15, IOWBSY 


RETURN TO CALLER 


IOWERR 


HVI 


STATUS(I),X f 12 f 


SET ERRTYP(I)=2,STRTBT(I)=1 




XC 


SVCCSW(8,I),SVCCSH(I) 


SET SVCCSW(I)=0 


IOWEXC 


AH 


I,BEC2G 


SET RETURN ADDRES5=I+20 




BC 


15, IOWBSY 


RETURN TO CALLER 


IOWSNS 


CLI 


BORCH(J),9JSFLG 


SENSE OPN. PERFORMED ON DEVICE 




BC 


8, IOWBSY 


YES-CYCLE ON SVC 




NI 


SENSW,X*FE f 


NO-SET SENSE SWITCH=0 




BC 


15, IOWEXC 


SENSE FINISHED - RETURN TO 




SPACE 




CALLER 



v vr v ^ y v v v \t v: v v v v v. v ,v v v v 

* ENTER HERE WHEN ANY INTERRUPTION FOR DEVICE J HAS OCCURRED * 





SPACE 






IOWINT 


BC 


15, IOWTER 


INTERRUPTION TERMINATED 




BC 


15, IOWCON 


OTHER CONDITION-TREAT AS CHANNEL 








END 




BC 


15,IOWEX 


EXCEPTIOfM. CONDITION 




BC 


15, 1014 SN 


SENSE OPERATION 


IOWCON 


ST 


I,0I0PSW*4 


CHANNEL END -I TO OSVPSW(A) 




BC 


15, UNSTAK 


CALL UNSTAK 


IOWTER 


AH 


I,BEC24 


SET RETURN ADDRESS=I*24 



A22154S0 
A2215450 
A2215«60 
A2215^70 
A2215480 
A2215^90 
A221550Q 
A2215510 
A2215520 
A2215530 
A22155^0 
A2215550 
A2215560 
A2215570 
A2215580 
A2215590 
A2215600 
A2215610 
A2215612 
A2215615 
A2215620 
A221563G 
A2215G40 
A2215650 
A2215&60 
A2215670 
A2215&80 
A2215G90 
A2215700 
A2215710 
A2215720 
A2215730 
A22157^0 
A22I5750 
A2215760 
A2215770 
A221578Q 
A2215790 
A2215800 
A2215810 
A2215820 
A2215830 
A2215S^0 
A2215850 
A22158G0 
A2215870 
A2215860 
A2215890 
A2215900 
A2215910 
A2215920 
A221593Q 
A221594Q 
A2215950 
A221596Q 



BC 15,I0MC0N 
IOWEX AH I>DEC2D 

BC 15,I0KC0N 
IOWSN 01 SENSW,X'01 f 

BC 15,I0MC0N 

EJECT 

w\/v».y\iv«\f\>vvvtfvv.\> v xr yy y .y vr y y y y ,y y y y 



I/O REQUEST AND CONTINUE ROUTINE 



CONTINUE 

SET RETURN ADDRESS=I+20 

CONTINUE 

SET SENSE 5NITCH=1 
CONTINUE 



THIS ROUTINE CONSISTS OF TWO DISTINCT PARTS. IN THE FIRST PART, 
THE I/O OPERATION IS STARTED (IF POSSIBLE) AND ANY IMMEDIATE CON- 
DITIONS ARE PROCESSED. CONTROL IS THEN RETURNED TO THE CALLING 
PROGRAM. 

THE SECOND PART IS ENTERED VIA THE I/O INTERRUPTION ROUTINE WHEN- 
EVER AN ASSOCIATED I/O INTERRUPTION OCCURS. THE INTERRUPTION 
CONDITIONS ARE PROCESSED AND CONTROL IS GIVEN TO THE UNSTAK ROU- 
TINE WITH OIOPSW CONTAINING THE PS14 WHICH IS TO BE LOADED IN 
ORDER TO RETURN CONTROL TO THE CALLING PROGRAM. 





SPACE 


IOCONT 


BAL 




BC 




BC 




BAL 




BC 




BC 




BC 




BC 








BC 


IOCA 


AH 




KVC 


IOCS 


ST 


IOCRET 


BC 


IOCHEN 


CLI 




BC 




TM 




BC 




CLI 




BC 




HVI 




HVC 


IOCD 


MVC 


IOCE 


MVC 


IOCF 


LR 




AH 




ST 




NI 




BC 


IOCFA 


HVI 




XC 


IOCG 


MVC 



LINK>GETUCB 
15, IOCFA 
15, IOCFA 
LINK,STRTIO 
15, IOCD 
15,I0CB 
15,I0STAK 
15, IOCG 

15,I0CHEN 
I,DEC36 

DEVINTH(3,J),AI0C^ 

I,OSVPSWH 

15,ENARET 

1(I),X'02' 

6, IOCA 

CSWM,UCORUE 

5, IOCA 

1(I),X'0D' 

4,*+8 

BORCH(J),FREFLG 

BEVINT*1(3,J),AI0CIN 

0SVPSW*5(3),29(I) 

SVCPSW(8,I),0SVPSW 

WORK, I 

WORK,BEC36 

N0RK,SVCPSW*4(I) 

OSVPSW,X*GO f 

15,ENARET 

STATUS(I),X'12 f 

SVCCSH(8,I),5VCCSW(I) 

0SVPSW*5(3),33(I) 



GET INDEX PAIR (J,K) OF UCB 

ERROR-DEVICE NOT FOUND 

ERROR CHANNEL NOT FOUND V1L1 

TRY TO START I/O OPERATION 

OPERATION TERMINATED 

DEVICE BUSY 

PATH BUSY 

EXCEPTIONAL CONDITION - SENSE 

OPERATION IF UC PRESENT 
CHANNEL DID 
START-I+36 TO I 
START-SET DEVINT(J) 
I TO OSVPSU(A) 
RETURN TO CALLER 
IS THIS AN *SVC 2 f CALL 
YES-GO TO START 
NO-ANY UC OR UE PRESENT 
YES-GO TO START 
IS THIS AN 'SVC M/13" CALL 
NO- 'SVC 1' CALL- BRANCH 
YES-BORCH(J)=0 - IGNORE DE 
SET DEVINT(J) 
NHRET TO OSVPSNCA) 
OSVPSW TO SVCPSW(I) 
1*36 TO SVCPSU(I) ADDRESS 



DISABLE I/O AND EXTERNAL INT. 

RETURN TO CALLER 

SET STRBT(I)=1-ERRTYP(I)=2 

SET SVCCSW(I)=Q 

EXCRET TO OSVPSW(A) 



A2Z15970 

A2215980 
A2215990 
A2216000 
A221601D 
A221G020 
A2216Q3D 
A2216Q4Q 
A2216050 
A2216DGQ 
A2216070 
A221608G 
A2216090 
A22161G0 
A221G11Q 
A2216120 
A2216130 
A22161A0 
A221G150 
A2216160 
A2216170 
A221618G 
A2216I90 
A2216200 
A221G210 
A2216215 
A2216220 
A2216230 
A221624G 
A2216250 
A2216260 
A221G270 
A2216280 
A2216290 
A2216300 
A221631G 
A2216320 
A221G330 
A2216340 
A221635G 
A2216360 
A2216370 
A221638G 
A2216390 
A2216A00 
A221&41Q 
A221&42G 
A2216430 
A2216^G 
A2216450 
A221646G 
A221647G 
A22163SQ 
A2216490 
A2Z1650Q 



RETURN TO CALLER 

ADD J TO CHANNEL CHAIN 

GO TO START 



BC 15,IOCE 
IOSTAK BAL LINKA, STACK 
BC 15,IOCA 
EJECT 

* ENTER HERE WHEN ANY INTERRUPTION FOR DEVICE J HAS OCCURRED * 





SPACE 






IOCINT 


BC 


15, IOCH 


INTERRUPTION TERMINATED 




BC 


15, UNSTAK 


OTHER CONDITION -GO TO UNSTAK 




BC 


15, IOCK 


EXCEPTIONAL PROGRAM ERROR OR 








TERMINATION WITH UE 




BC 


15,UNSTAK 


SENSE OPERATION CHAINED FOR THE 








DEVICE-GO TO UNSTAK 




CLI 


l(I),X f 02 f 


CHANNEL END-IS THIS AN 'SVC 2 f 








CALL 




BC 


8,UNSTAK 


YES-GO TO UNSTAK 




TH 


CSW*4,UCORUE 


NO-ANY UC OR UE PRESENT 




BC 


5, UNSTAK 


YES-GO TO UNSTAK 




CLI 


1(I)»X'0D V 


NO- IS THIS AN 'SVC 13/14* CALL 




BC 


4,**8 


NO- 'SVC 1' CALL- BRANCH 




KVI 


BORCH(J),FREFLG 


YES-BORCH(J)=0 - IGNORE DE 


IOCH 


HVC 


SVCPSW(8,I),0I0PSW 


OIOPSI4 TO SVCPSW(I) 




MVC 


OI0PSW+5(3),29(I) 


NMRET TO OIOTSW(A) 


IOCJ 


HI 


OIOPSW,X*00* 


DISABLE I/O AND EXTERNAL INT, 




NI 


5VCPSW+l(I),X f FD* 


0 TO 14AIT STATE BIT IN 5VCPSN 




BC 


15,UNSTAK 


GO TO UNSTAK 


IOCK 


HVC 


SVCPSW(8,I),0I0PSW 


OIOPSW TO SVCPSN(J) 




HVC 


OIOPSW+5(3),33(I) 


EXCRET TO OIOPSW(A) 




BC 


15, IOC J 


CONTINUE 




EJECT 







STRTIO ROUTINE 



THIS ROUTINE HILL BE CALLED IN ORDER TO BEGIN THE PHYSICAL I/O * 

ACTIVITY RELATED TO A PARTICULAR SVC INDEX I. INPUT PARAMETERS * 

TO THIS ROUTINE ARE THE THREE INDICES I, J AND K. THE CALLING * 
SEQUENCE IS OF THE FORM= 



BAL 
TERM BC 
DEVBSY BC 
PATHS BC 
EXCEPT BC 
CHEKD BC 



LINK, STRTIO 

15,ADDR1 

15,ADDR2 

15,ADDR3 

15>ADDR4 

15,ADDR5 



START ANY INSTRUCTION 



(ADDRESS 
(ADDRESS 
(ADDRESS 
(ADDRESS 
(ADDRESS 
(ADDRESS 



LINK) 

LINK+4) 

LINK*8) 

LINKH2) 

LINK+16) 

LINK*20) 



CONTROL NILL BE RETURNED TO ONE OF THE ADDRESSES LINK, LINK***,..* 
LINK+20, DEPENDING ON THE CONDITIONS DETECTED BY THE ROUTINE. THE 
ROUTINE WILL THEN BRANCH TO THE APPROPRIATE SEQUENCE IN ORDER TO 
PROCESS THESE CONDITIONS. 

TERM THE OPERATION HAS BEEN STARTED AND TERMINATED WITH- 

OUT UNIT CHECK, UNIT EXCEPTION OR OTHER ERROR CON- 



A2216510 
A2216520 
A2216530 
A221&540 
A2216550 
A221G5G0 
A2216570 
A2216580 
A221G590 
A221^b00 
A221G610 
A2216620 
A2216630 
A221G640 
A2216650 
A2216660 
A2216670 
A221&68Q 
A221669G 
A22167G0 
A221671Q 
A2216720 
A2216730 
A2216740 
A2216750 
A2216760 
A2216770 
A2216780 
A221&790 
A2216S00 
A2216810 
A2216820 
A2216830 
A221G840 
A2216850 
A2216560 
A2216870 
A2216880 
A2216S90 
A221G900 
A2216910 
A2216920 
A22I6930 
A22I6940 
A2216950 
A2216960 
A221G970 
A221698D 
A2216990 
A2217000 
A2217010 
A2217020 
A2217030 
A2217040 
A2217050 



* DEVBSY 

* PATHS 

* EXCEPT 

* CHEND 

* START 



DITIONS 

THE DEVICE IS BUSY HITH A 
IN THE CHAINED STATE 



PREVIOUS OPERATION OR IS 



THE CHANNEL > SUBCHANNEL, CONTROL UNIT OR DEVICE IS 
BUSY, OR THE OPERATION HUST BE DELAYED BECAUSE 
SOME OUTSTANDING SENSE REQUESTS HAVE NOT YET TERMI- 
NATED 

ONE OF THE FOLLOWING EXCEPTIONAL CONDITIONS HAS OC- 
CURRED= 

— THE OPERATION CANNOT BE STARTED DUE TO A UNIT 
CHECK OR UNIT EXCEPTION CONDITION ON THE DEVICE 

— THE OFERATION HAS BEEN STARTED AND TERMINATED 
WITH A UNIT CHECK OR UNIT EXCEPTION CONDITION 

— THE DEVICE IS NOT OPERATIONAL 

— A PROGRAM CHECK CONDITION OCCURRED AT INITIAL- 
IZATION 



THE OPERATION HAS STARTED 
CHANNEL END CONDITION 



AND GAVE AN IMMEDIATE 



THE OPERATION HAS 
STATUS CONDITIONS 



STARTED WITHOUT ANY IMMEDIATE 



^ \f vr \/ \j \r \/ \r v v xj 





SPACE 






STRTIO 


TH 


B0RCH(J),B5YFLG 


BORCHCJ)=01,1G,11 




BC 


5,4<LINK) 


YES-RETURN TO (LINKH4 




XC 


SNSABD(11,I),SNSADD(I) 


NO-0 TO SNSADD(I),Q TO SVCCSW(I) 




HVI 


STATUS(I),X f 10 f 
I,DEVSVC(J) 


0 TO ERRTYP,! TO STRTBT(I) 

1 TO DEVSVC(J) 




ST 




TM 


SNSCNT,0NES 


ANY SENSE OPERATION TO BE 








PERFORMED ON THE DEVICE 




BC 


5, SIOBUS 


YES-PATH BUSY, RETURN TO (LINKH8 




MVC 


CAk ! (4),CAWADD(I) 


CCWADD(I) TO CAIKA) 




LH 


DEVICE,BEV3&Q(J) 


S/360 DEVICE ADDRESS TO DEVICE 


5IODEV 


SIO 


O(DEVICE) 


TRY TO START I/O 




BC 


8, SIOOK 


CC=0-SIO ACCEPTED 




BC 


4,SI0CSN 


CC=1-CSW STORED 




BC 


2>SI0BU5 


CC=2-PATH BUSY 


SIOERA 


01 


ERRTYP(I),X f 01 f 


CC=3-N0T OPERATIONAL ,X * 01 f TO 


* 






ERRTYP 




BC 


15,12(LINK) 


RETURN TO (LINKH12 


SIOBUS 


NI 


STRT8T(I),X f EF f 


0 TO STRTBT(I) 




BC 


15>6(LINK) 


RETURN TO (LINK) +6 


SIOOK 


01 


BORCH(J),BSYFLG 


11 TO BORCH(J) 




BC 


15,20(LINK) 


RETURN TO (LINKH2Q 


SIOCSH 


TM 


CSU+5,CHERST 


ANY OF PRCDCCCCICCCHC 




BC 


5,SREP0S 


YES-CHANNEL FAILURE, SET UP 




HVC 


**7(1>,INVSTCJ) 


SEREP INTERFACE 




TM 


CSN*4>X ? G0* 


NO -ANY INVALID STATUS BITS 




BC 


5,SREP1S 


YES-DEVICE FAILURE, SET UP SEREP 








INTERFACE 



A2217G6Q 
A2217070 
A2217080 
A2217090 
A2217100 
A2217110 
A2217120 
A2217130 
A2217140 
A221715Q 
A2217160 
A2217170 
A2217180 
A2217190 
A221720D 
A2217210 
A2217220 
A2217230 
A2217240 
A2217250 
A221726Q 
A2217270 
A2217280 
A221729G 
A2217300 
A221731D 
A2217320 
A2217330 
A2217340 
A2217350 
A2217360 
A2217370 
A2217380 
A2217390 
A221748Q 
A2217410 
A2217420 
A2217430 
A2217440 
A2217450 
A2217460 
A221747Q 
A2217480 
A2217490 
A2217500 
A2217510 
A2217520 
A2217530 
A2217540 
A2217550 
A2217560 
A2217570 
A2217580 
A2217590 
A22I7600 



TM CSW*5,PC 

BC 8,5I0DST 

01 ERRTYP(I),X f 03 f 

BC 15,12(LIHK) 

SI0D5T TM CSH*4,B 

BC B,5I0B 

th csy*4,sn 

BC 5>SIOBU5 

BC 15,SI0BEV 

5I0B TM CSW+4,CE 

BC 1,SI0BB 

TM CSHH,CUE+DE 

BC 5>SI0DEV 

5I0BB 0C SVCCSHW1,I),CSW*4 

TM CSN*4,CE 

BC 8,SI0D 

TM CSW,DE 

BC 5,SI0D 

TM CSW+4,UC 

BC 5,SI0C 

01 BORCH(J),BSYFLG 

BC 15,16(LINK) 

5I0C CLI l(I)>X f 0E f 

BCR 8, LINK 

IC WORK,SNSCNT 

LA N0RK,1(N0RK) 

ETC HORK>SNSCNT 

MVI BORCH(J),SNSFLG 

BC 15>16(LINK) 

SIOD TH CSW+^UC 

BC 5,SI0SNS 

TM CSM*3,UE 

BC 5,12(LINK) 

BCR 15, LINK 

SI05NS BAL LIKKA, SENSE 

BC 0,0 

BC 15,12(LINK) 

EJECT 

IOINT ROUTINE 

THIS ROUTINE IS ENTERED DIRECTLY VIA THE I/O NEH PSW WHEN AN I/O 
INTERRUPTION OCCURS. THERE ARE TNO INPUT PARAMETERS: THE AD- 
DRESS OF THE DEVICE IN THE I/O OLD PSH, AND THE CSN. 

IF THE INTERRUPTION IS RELATED TO SOME PREVIOUS I/O REQUEST, 

DEVINT(J) HILL CONTAIN THE ADDRESS OF THE FIRST BYTE OF AN EXIT 

SEQUENCE. THIS EXIT SEQUENCE MILL HAVE THE FOLLOWING FORMAT= 



TERM 
OTHER 



BC 
BC 



15,ADDR1 
15,ADDR2 



NO-IS PROGRAM CHECK BIT ON A2217610 
NO-EXAMINE STATUS A2217620 
YES-SET PROGRAM CHECK INDICATION A221763Q 
RETURN TO (LTNK)H2 A2217640 
IS BUSY BIT=1 A2217650 
NO-GO TO TEST CHANNEL END A2217660 
YES-IS STATUS MODIFIER BIT PRES. A2217670 
YES-CU BUSY, RETURN TO (LINKH8 A2217680 
NO-IGNORE OTHER STATUS BITS A2217690 
IS CHANNEL BIT PRESENT A2217700 
YES -BRANCH. NO, A2217710 
NO-IS CUE AND/OR DE BITS PRESENT A2217720 
YES-IGNORE A2217730 
DEVICE STATUS TO SVCCSW(I) A2217740 
IS CHANEL END PRESENT A2217750 
NO-OPERATION NOT STARTED A2217760 
YES-IMHEDIATE OPERATION - IS DE A2217770 
BIT PRESENT A2217780 
YES-TEST FOR UC OR UE A2217790 
NO -OPERATION NOT FINISHED - 15 A2217800 
UC BIT PRESENT A2217810 
YES-GO TO TEST RUN CALL A2217820 
NO-CHANNEL END, 11 TO BORCH(J) A2217830 
RETURN TO (LINK)UG A221784Q 
IS THIS A REMIND AND UNLOAD CALL A2217850 
YES- UC, NORMAL CONDITION A22178&0 
NO-INCREMENT SNSCNT BY ONE - A2217870 
(NUMBER OF SENSE OPERATIONS A2217880 
TO BE PERFORMED) A2217890 
10 TO BORCH(J) A221790G 
RETURN TO (LINKH1& A2217910 
IS UC BIT PRESENT A2217920 
YES-GO TO SENSE A2217930 
NO-IS UE BIT PRESENT A2217940 
YES-RETURN TO (LINKH12 A2217950 
NO-TERMINATED, RETURN TO (LINK) A2217960 
PICK UP SENSE BYTES A2217970 
NOP A2217980 
SENSE TERMINATED, RETURN TO A2217990 
(LINKH12 A2218000 

A2218D10 

*********************** A22 18020 

* A2218030 

* A22180*0 

* A2218050 

* A22180G0 

* A2218070 

* A2218080 

* A2218090 

* A2218100 

* A2218110 

* A2218120 

* A2218130 

(ADDRESS LINK) * A2218140 

(ADDRESS LINKH) * A2218150 



EXCEPT BC 

SENSE BC 
CHEND BC 



15,ADDR3 
15>ADDR4 
15,ADDR5 



(ADDRESS 
(ADDRESS 
(ADDRESS 



LINK +8) 
L3NK+12) 
LINK+16) 



* AFTER THE EXECUTION OF THIS ROUTINE, THE ABOVE EXIT SEQUENCE WILL 

* GIVE CONTROL TO ONE OF THE ADDRESSES LINK, LINKH,... LINK +16. 



TERH 



EXCEPT 



SENSE 



CHEND 



OTHER 



THE OPERATION HAS TERMINATED WITHOUT UNIT CHECK, 
UNIT EXCEPTION OR OTHER ERROR CONDITIONS 

THE OPERATION HAS TERMINATED AND A UNIT EXCEPTION, 
CHAINING CHECK, PROGRAM CHECK OR PROTECTION CHECK 
CONDITION HAS BEEN DETECTED 



THE OPERATION HAS TERMINATED 
DITION HAS BEEN DETECTED 



AND A UNIT CHECK CON- 



A CHANNEL END WITHOUT DEVICE END CONDITION HAS BEEN 
DETECTED 

NONE OF THE ABOVE CONDITIONS HAS OCCURRED 



IF THE INTERRUPTION IS NOT RELATED TO SOME PREVIOUS I/O REQUEST 
(FOR EXAMPLE, A DEVICE END OR ATTENTION INTERRUPTION), THE INTER- 
RUPTION WILL BE PROCESSED IN THE IOINT ROUTINE. 



IOINT 



IOINTA 



SPACE 






STM 


1,7,I0GR 


GENERAL REGISTERS 1-7 TO IOGR 


BAL 


LINK,INTUCB 


GET INDEX PAIR J,K OF UCB 


BC 


15,UNSTEX+4 


INTERRUPT FOR UNKNOWN CHAN V1L1 


BC 


15,UN5TEX*4 


INTERRUPT FOR UNDE( DELETED) V1L1 


BC 


15,UN5TAK 


INTERRUPT FOR UNKNOWN CUNIT V1L1 
IGNORE (DELETED) V1L1 


TM 


CSU*5»CDICCC 


IS ANY DC, ICC OR CCC PRESENT 


BC 


5,SREP05 
**7(1),INVST(J) 


YES-SET UP SEREP INTERFACE 


HVC 




TM 


CSW*4,X f GG f 


NO-ANY INVALID DEVICE STATUS BIT 


BC 


5,SREP1I 


YES-SET UP SEREP INTERFACE 


TM 


BORCH(J),SNSFLG 


IS BORCH(J)=10 OR 11 


BC 


12,I0INTK 


NO-GO TO TEST FOR A 


L 


LINK,DEVINT(J) 


ADDRESS OF EXIT SEQ. TO (LINK) 


L 


I,DEVSVC(J) 


ADDRESS OF ASSOC. SVC TO I 


TM 


CSN+4,DESTAT 


ANY DEVICE STATUS PRESENT 


BC 


6,4(LINK) 


NO-IGNORE PCI INTERRUPT 


OC 


SVCC5W(8,I),CSW 


YES-CSW OR SVCCSW(I) TO SVCCSW 


TM 


CSW*5,P0RPRC 


ANY PC OR PRC PRESENT 


BC 


6, IOINTA 


NO-GO TO TEST FOR UC 


01 


ERRTYP(I),X , 03 f 


YES-X'03 f TO ERRTYP(I) 


TM 


SVCCSWH(I),UC 


IS UNIT CHECK PRESENT 


BC 


8,I0INTB 
BORCH(J),BSYFLG 


NO-GO TO TEST FOR DE 


TM 


YES-IS B0RCH(I)=11 


BC 


12,I0INTB 


N0-BORCH(J)=10,GO TO TEST FOR DE 
NO-X'IQ 1 TO BORCH(J) 


MVI 


BORCH(J),SNSFLG 


IC 


WORK,SNSCNT 


SNSCNT TO (WORK) 



A22I8160 
A2218170 
A2218180 
A2218190 
A2218200 
A2218210 
A221822Q 
A2218230 
A2218240 
A2218250 
A2218260 
A22I827Q 
A2218260 
A2218290 
A2218300 
A2218310 
A2218320 
A2218330 
A221S340 
A2218350 
A221836G 
A2218370 
A2218380 
A2218390 
A22184G0 
A221S410 
A2218420 
A2218430 
A221B440 
A2218450 
A221846Q 
A2218465 
A221847Q 
A2218475 
A221348G 
A2213490 
A2216500 
A2218510 
A2218520 
A2218530 
A221854G 
A2218550 
A221856G 
A221857D 
A2218530 
A221859D 
A2218600 
A2218610 
A2218620 
A22I8630 
A2218G40 
A2218650 
A22I8&60 
A2218670 
A2218680 



IOINTB 



IOINTC 
IOINTD 



IOINTE 



IOINTK 



LA 


HORK,l(NORK) 


STC 


*40RK,SNSCNT 


in 




BC 


1, IOINTD 


TH 


CSM+4,CE 


BC 


8, IOINTC 


BC 


1,16(LINK) 


TH 


CSH*4,CUE 


BC 


1/*(L3M) 


TM 

in 




BC 


8,I0INTE 


BAL 


LINKA, STACK 






HI 


BORCH(J),X'00' 


in 




BC 


1,6(LINK) 


TH 


SVCCSW+5(I),CHC 


BC 


1,8(LINK) 


TH 


ERRTYP(I),X f Q3 f 


BC 


5,8(LINK) 


BCR 


15, LINK 


SPACE 


3 


m 


CSNH,A 


BC 


8, UNSTAK 


TH 


ATT5H,X T 01 f 


BC 


1, UNSTAK 


L 


S40RK,BEVATT(J) 


LTR 


WORK ,NORK 


BC 


8>UN5TAK 


HVC 


0(8,NORK),OIOPSH 


LA 


MORK^UCRK) 


ST 


NORkMEHP 


HVC 


OIOPSH+5(3),TEHP+l 


NI 


OIOPSW,X f 00 f 


BC 


15, UNSTAK 


EJECT 





i« vr •vj v v \r \r w v y y ,xj <j vr vr y v w w a> \» vi 



I/O REQUEST CHAIN HANIPULATION 



* SUPPOSE THAT FOR SOME CHANNEL THREE UCB'S WITH INDICES 

* AND J3 ARE CHAINED (IN THAT ORDER) ON THE CHANNEL WITH 
* 

(IOQBEG(K)) = Jl = ADDRESS OF FIRST UCB ON THE CHAIN 
(DEVCHN(JD) = J2 = ADDRESS OF SECOND UCB ON THE CHAIN 
(DEVCHNU2)) = J3 = ADDRESS OF THIRD UCB ON THE CHAIN 
(BEVCHNU3)) = 0 = NO FURTHER UCB'S ON THE CHAIN 



(lOQEND(K)) = DEVCHNU3) TO INDICATE THAT THE ADDRESS OF THE 



(NORK)U TO (NORK) A2218690 
SNSCNT+1 TO SNSCNT A2218700 
IS DE PRESENT A2218710 
YES-GO TO TEST FOR UC A2218720 
NO-IS CE PRESENT A2218730 
NO-GO TO TEST FOR CUE A221S740 
YES-RETURN TO (LINK) +16 - A2218750 

CHATTEL END A2218760 
IS CUE PRESENT A2218770 
YES-RETURN TO (LINK)+4 - OTHER A22 18780 

CONDITION A2218790 
NO-IS UC PRESENT A2218800 
NO-TERMINATED, GO TO TEST FOR UE A22183I0 
YES-ADD J TO CHANNEL CHAIN A2218820 
RETURN TO (LINK) +12, SENSE - A2218S30 

AFTER STACK A2218840 
XW TO BORCH(J) A2218850 
IS UE PRESENT A2218860 
YES-RETURN TO (LINK) +8 - A2218870 

EXCEPTIONAL CONDITION A221B880 
IS CHAINING CHECK A2216890 
YES-RETURN TO (LINK) +8 - A2218900 

EXCEPTIONAL CONDITION A2218910 
NO-IS ERRTYP=X f 00* A2218920 
NO-RETURN TO (LINK) +8 - A2218930 

EXCEPTIONAL CONDITION A2218940 
YES-RETURN TO (LINK) — TERMINATED A2218950 

A2218960 

IS A=l A2216970 
NO-IGNDRE DE,GO TO UNSTAK A2218980 
YES-IS CONSOLE DISABLED A2218990 
YE 5 -IGNORE ATTN. INTERRUPTION A2219000 
NO-ATTPSN(J) TO (NGRK) A2219010 
IS ATTPSH(J)=0 A2219020 
YES-IGNORE ATTENTION A2219030 
NO-OIOPSN TO (ATTPSN(J)) A22190^0 
ATTRET(J)=ATTPSW(J)+8 TO (I40RK) A2219050 
ATTRET(J) TO OIOPSN(A) A2219060 
* A2219070 
DISABLE I/O AND EXTERNAL A2219030 
INTERRUPTIONS, GO TO UNSTAK A2219090 

A2219100 

****************** A2219110 

* A2219120 

* A2219130 

* A22191<$0 
Jl, J2 * A2219150 

INDEX K. * A2219160 

* A2219170 

* A2219180 

* A2219190 

* A2219200 

* A2219210 

* A2219220 

* A2219230 



NEXT UCB TO BE ADDED TO THE CHAIN * 
IS TO BE PLACED IN THE WORD WITH AD- * 

IOQBEG(K) * 

USING THE ABOVE EXAMPLE, TO ADD A UCB WITH INDEX J4 TO THE CHAIN, * 
THE FOLLOWING STEPS ARE EXECUTEB= 



DRESS DEVCHNCJ3) 
WHEN THERE ARE NO UCB'S ON THE CHAIN, (IOQEND(K)) 
ADDING A UCB TO A CHAIN 



PICK UP DEVCHNU3) FROM IOQEND(K) 
PLACE J4 AT ADDRESS DEVCHN(J3) 
PLACE ADDRESS DEVCHNU4) AT lOQEKD(K) 

GOING THROUGH A REQUEST CHAIN 

THE FOLLOWING STEPS ARE PERFORMED WHEN GOING THROUGH A CHAIN OF 
I/O REQUESTS: 



CHAINING 



1. THE FIRST VALUE OF J IS PICKED UP FROM IOQBEG(K) 

2. DEVCHN(J) IS TESTED, AND IF IT CONTAINS ZERO, THE 
IS TERMINATED 

3. IF DEVCHN(J) CONTAINS A NON-ZERO VALUE, THE NEXT VALUE OF J 
IS PICKED UP FROM DEVCHN(J) AND STEP 2 IS EXECUTED AGAIN 

THIS CHAINING IS PERFORMED USING 
REGISTER CONTAINS, SUCCESSIVELY, 
DEVCHN(JN). 

REMOVING A UCB FROM A CHAIN 

TO REMOVE THE UCB WITH INDEX J3 

CHAIN DESCRIBED ABOVE, THE FOLLOWING STEPS ARE EXECUTED= 

PICK UP ADDRESS DEVCHNU2) FROM GENERAL REGISTER FOINTR 
PLACE ZERO IN ADDRESS DEVCHN(JZ) 
PLACE ADDRE5S DEVCHNU2) AT IOQEND(K) 



A GENERAL REGISTER POINTR. THIS * 
IOQBEGCK), DEVCHNCJ1), DEVCHNCJ2) * 

* 

(LAST UCB ON THE CHAIN) FROM THE * 

* 



Lf \r \r v xr \r v y v v v vf \j v v v v v v \> v v v v vr >.« x.» 

EJECT 

& - . : - * 

* TO REMOVE THE UCB WITH INDEX JZ (NOT THE LAST UCB ON THE CHAIN) * 

* FROM THE CHAIN DESCRIBED ABOVE, THE FOLLOWING STEPS ARE EXECUTED: * 

* PICK UP ADDRESS DEVCHN(Jl) FROM GENERAL REGISTER POINTR * 

* PLACE (DEVCBN(J2))=J3 AT ADDRESS DEVCHN(Jl) * 

* PLACE ZERO IN ADDRESS DEVCHN(JZ) * 

SPACE 3 



A22192SQ 
A2219250 
A22192&0 
A221927D 
A2219280 
A221929D 
A2219300 
A2219310 
A2219320 
A2219330 
A221934Q 
A221935Q 
A2219360 
A2219370 
A2219380 
A221939D 
A221940O 
A2219SI0 
A221942Q 
A2219430 
A2219440 
A22I9450 
A2219460 
A2219370 
A2219480 
A221949Q 
A221950D 
A221951Q 
A2219520 
A2219530 
A22195<i0 
A221955G 
A221956G 
A2219570 
A22I9560 
A2219590 
A2219£GQ 
A2219610 
A221962G 
A2219630 
A2219G40 
A2219650 
A221966G 
A221967G 
A221968G 
A2219690 
A2219700 
A2219710 
A2219720 
A2219730 
A221974G 
A2219750 
A22I976G 
A2219770 
A2219780 



********************************* 



** 
* 
* 
* 

***************************************************** 
SFACE 



ROUTINE TO CHAIN AN I/O REQUEST AND CONTINUE 



STACK 01 BORCH(J),CHNFLG 

L POINTR » IOQEND ( K ) 

ST J,Q(POINTR) 

LA KORKA,DEVCHN(J) 

ST NORKA,IGQEND(K) 

BCR 15,LINKA 



X f 01* TO BORCH(J) 
(IOQEND(K)) TO POINTR 
J TO (POINTR) 
DEVCHN(J) TO (IOQEND(K)) 

* 

RETURN TO CALLING ROUTINE 



SPACE 2 

*********************************************************************** 
* * 
* 
* 



UNSTAK ROUTINE 

THIS ROUTINE ATTEMPTS TO 
DESIGNATED CHANNEL CHAIN 
WITH ONE INPUT PARAMETER, 
ANY UCB FOR WHICH AN I/O 



DUE TO 
CHAIN- 



INITIATE AS HANY I/O OPERATIONS ON A 
AS POSSIBLE- THE ROUTINE IS ENTERED 
THE CHANNEL INDEX K. 
OPERATION IS STARTED (OR IS INHIBITED 
EXCEPTIONAL CONDITIONS) HILL BE REMOVED FROM THE CHANNEL 



** 
UNSTAK 
UNSTKA 



UNSTKB 
UN5TKC 

UNSTKD 



SFACE 2 

LA POINTR, IOQBEG(K) 

HVI UNSTSM,ZERO 

L J, 0( POINTR) 

LTR J,J 

BC 8,UNSTEX 

L I,BEVSVC(J) 

TM BORCH(J),SNSFLG 

BC i,UNKSN5 

NI BORCH(J),FREFLG 

ST POINTR, POINTA 

BAL LINK,STRTIO 

BC 15,UNSTKD 

BC 15,* 

BC 15,UNSTKC 

BC 15,UNSTKG 

BC 15>UNSTKH 

L WORK,DEVCHN(J) 

L POINTR, POINTA 

ST WORK>0(POINTR) 

XC DEVCHN(4,J),BEVOMJ) 

LTR 140RK,NCRK 

BC 7,UNSTEX 

ST POINTR, IOQEND(K) 

BC 15,UNSTEX 

01 BORCH(J),CHNFLG 

LA POINTR, DEVCHN( J) 

BC 15, UNSTKA 

MVC SVCPSN(8,I),OIOPS14 



IOQBEGCK) ADDRESS TO (POINTR) 
* 

(POINTR) TO J 

* 

RETURN TO CALLER 
(DEVSVC(J)) TO I 
IS SENSE FLAG IN BORCH(J) 
YES-GO TO TRY SENSE 
NO~X f 00 f TO BORCH(J) 
SAVE POINTR 

TRY TO START I/O OPERATION 
OPERATION TERMINATED 
DEVICE BUSY-NO INTERRUPTION 
PATH BUSY 

ERROR-EXCEPTIONAL CONDITION, 

SENSE OPERATION 
CHANNEL END 

START-CDEVCHN(J)) TO POINTR 

RESTORE POINTR 

* 

0 TO BEVCHN(J) 
WAS DEVQ£KJ)=Q 
YES-RETURN TO CALLER 
NO-(POINTR) TO IOQEND 
RETURN TO CALLER 
X v 01 f TO BORCH(J) 
DEVCHN(J) TO POINTR 
EXAMINE NEXT ELEMENT IN CHAIN 
OIOPSH TO SVCPSW(I) 



A2219790 
A2219800 
A2219810 
A2219820 
A2219830 
A22198*4Q 
A2219S50 
A221986Q 
A2219870 
A2219880 
A2219890 
A2219900 
A221991Q 
A2219920 
A2219930 
A2219940 
A2219950 
A2219980 
A2219970 
A2219980 
A221999Q 
A222G0C0 
A2220010 
A222DQ20 
A222G030 
A2220040 
A2220050 
A222GG60 
A2220D70 
A222G080 
A2220090 
A2220100 
A2220110 
A222012G 
A222G130 
A22201S0 
A222015D 
A222G160 
A2220170 
A222G180 
A2220190 
A222G2G0 
A222G210 
A222G220 
A222G230 
A222G240 
A2220250 
A222G26G 
A2220270 
A222G280 
A2220290 
A222G3G0 
A222031Q 
A2220320 
A222G330 





hvc 


OI0PSU*5(3),29(I) 


NRHRET TO OIOPSNf(A) 


IfJSTKE 


HI 


OIOPSH,X'GQ* 


DISABLE I/O AMD EXTERNAL INT. 




NI 


SVCPSU+I(I)>X'FD* 


0 TO 14AIT STATE BIT IN SVCPSW 


UN5TKF 


L 


NORK,DEVCHN(J) 


(DEVCHNCJ)) TO (POINTR) 




L 


POINTR, POINTA 


RESTORE POINTR 




ST 


k ? ORK,0( POINTR) 
BEVCRN(4,J),DEVCHN(J) 






XC 


0 TO (BEVCHN(J)) 




LTR 


NORK,NORK 


HAS (DEVCHN(J))=0 




BC 


8,UNSTKB 


YES-TERMINATED > RETURN TO CALLER 




BC 


15,UN5TKA 


NO-TRY NEXT ELEMENT IN CHAIN 


UNSTKG 


HVC 


SVCPS«(8,I),0I0PSH 


OIOPSH TO SVCPSMCI) 




HVC 


0IQPSW*5(3),33(I) 


EXCRET TO OIOPSW(A) 




BC 


15,UN5TKE 


GO TO DISABLE INTERRUPTIONS 


UNSTKH 


CLI 


l(I),X'02 f 


IS THIS AN 'SVC 2' CALL 




BC 


8>UNSTKF 


YES-REMOVE UCB FROH CHAIN 




TH 


CSH*4,UC0RUE 


NO-IS ANY UC OR UE PRESENT 




BC 


5,UNSTKF 


YES-REMOVE UCB FROH CHAIN 




CLI 


l(I),X'GD f 


NO- IS THIS AN *SVC 13/14* CALL 




BC 


4,**8 


NO- 'SVC 1' CALL- CONTINUE 




hvi 


BORCH(J),FREFLG 


YES-BORCH(J)=G - IGNORE DE 




BC 


15,UNSTKD 
POINTR, POINTA 


NO-EXIT TO TERMINATE 


UNKSNS 


ST 


SAVE POINTR 




BAL 


LINKA, SENSE 


TRY TO PICK UP SENSE BYTES 




BC 


15,UNSTKC+4 


PATH BUSY 




NI 


BORCH(J),X'Q0* 


SENSE OPERATION TERMINATED 




L 


WORK,SENSH 


SENSE COUNT TO (140RK) 




BCTR 


NORK,0 






STC 


NORK,SNSCNT 


SNSCNT-1 IN SNSCNT 




HVI 


l$ISTSM,ONE 






CLI 


1(I),X'GB' 


IS THIS AN 'SVC 11' CALL 




BC 


7, UNSTKG 


NO-REHOVE UCB FROH CHAIN 




BC 


I5,UNSTKF 


YES-REHDVE UCB FROM CHAIN 


UNSTEX 


MI 


OIOPSNU,X'FB' 


0 TO HAIT STATE BIT IN OIOPSH 




CLI 


UNSTSW,ONE 
8>UHSTAK 


HAS THE LAST CHAINED OPERATION 




BC 


* A SENSE- YES>GO TO UNSTAK. NO, 




LM 


1>7,I0GR 


EXIT SEQUENCE, RESTORE GENERAL 








REGISTERS 1-7 




LP5H 


OIOPSS4 


RETURN-OIOPSN IN PSW 




EJECT 







ar . v; v v ag sc ag v v. v ar. at ag at a£ ag at at a^ at v at at. at at at at at at 

* SENSE OPERATION ROUTINE 



THIS ROUTINE TRIES TO EXECUTE A SENSE OPERATION ON A DEVICE. IT 
IS ENTERED BY THE CALLING SEQUENCE^ 

BAL LINKA, SENSE 

THE INPUT PARAMETERS ARE THE INDEX PAIR (I, J). 

IF THE SENSE OPERATION CANNOT BE STARTED (CHANEL, SUBCHANNEL OR 
CONTROL UNIT BUSY), CONTROL IS RETURNED TO ADDRESS LINKA. 



IF THE OPERATION CAN BE STARTED, THE ROUTINE 14AITS UMTIL THE OP- 
ERATION IS FINISHED, AND THEN RETURNS CONTROL TO ADDRESS LINKA*4. 



A222Q340 
A222G350 
A222GH60 
A2220370 
A2220360 
A222Q390 
A2220400 
A2220410 
A2220420 
A2220430 
A2220440 
A2220450 
A2220460 
A2220470 
A222G480 
A222Q490 
A2220500 
A2220510 
A2220520 
A2220530 
A222G54G 
A2220550 
A22205G0 
A2220570 
A2220580 
A2220590 
A222060Q 
A222G610 
A2220620 
A2220630 
A222C640 
A222C65Q 
A2220660 
A2220670 
A222G6S0 
A2220690 
A2220700 
A2220710 
A2220720 
A2220730 
A2220740 
A2220750 
A222Q7&0 
A222077D 
A222Q780 
A2220790 
A2220800 
A2220310 
A2220820 
A222G330 
A2220840 
A222Q850 
A22208G0 
A2220870 
A2220880 



CERTAIN ERRORS DETECTED DURING THE EXECUTION OF THIS ROUTINE WILL 
CAUSE THE SEREP INTERFACE TO BE SET UP. 

A MAXIMUM OF SIX SENSE BYTES WILL BE READ- THE FIRST THREE BYTES 
WILL BE STORED STARTING AT ADDRESS SNSADBCI) AND THE LAST THREE 
BYTES STARTING AT ADDRESS UCBSNS(J). IF LESS THAN SIX SENSE 
BYTES ARE AVAILABLE FROM THE DEVICE, THE REMAINING BYTES WILL BE 
SET TO ZERO. 





SPACE 






SENSE 


LA 


WORKA>SNSCOM 


SET ADDRESS OF SENSE COMMAND 




ST 


WORKA,CAW 


IN (CAW) 




XC 


SNSBYT(6),SNSBYT 


CLEAR SENSE BYTES BUFFER 




LH 


DEVICE, DEV360U) 


SYSTEM/ 360 ADDRESS TO (DEVICE) 


SENSIO 


SIO 


0( DEVICE) 


START I/O 




BC 


8, SENTIO 


CC=0 - WAIT UNTIL SENSE FINISHED 




BC 


2,sb* s sio 


CC=2 - BUSY, TRY AGAIN UNTIL FREE 




BC 


1,SREP35 


CC=3 - NOT OPERATIONAL, SET UP 








SEREP INTERFACE 




TM 


CSW+5,CHSTAT 


CC=1 - ANY CHANNEL STATUS BITS 




BC 


5,SREP0S 


YES-ERROR, SET UP SEREP INTERFACE 




TH 


C5WH,UC 


NO-IS UNIT CHECK PRESENT 




BC 


5>SREP1S 


YES-DEVICE FAILURE, SET UP SEREP 








INTERFACE 




TM 


CSW*4,A0RBE 


ATTENTION OR DE PRESENT 




BC 


5, SENSIO 


YES-IGNORE 




BCR 


15,LINKA 


NO-CU BUSY, RETURN TO (LINKA) 


SENTIO 


TIO 


O(DEVICE) 


TEST I/O 




BC 


2, SENTIO 


CC=2 - BUSY, WAIT 




BC 


1,SREP3S 


CC=3 - NOT OPERATIONAL, SET UP 








SEREP INTERFACE 




TM 


CSW*5,CHNRST 


CC=1 - ANY CHANNEL STATUS BITS, 








EXCEPT IL 




BC 


5,SREP0S 


YES-CHANNEL FAILURE, SET UP SEREP 


* 






INTERFACE 




TM 


CSW*4,UC 


NO-IS UNIT CHECK PRESENT 




BC 


5,SREP1S 


YE5-BEV. FAILURE-SET UP SEREP 




TH 


CSWM,CE 


NO-IS CHANNEL END PRESENT 




BC 


8, SENTIO 

SNSABD(3,I),SNSBYT 


NO-WAIT 




HVC 


YES-FIRST 3 BYTES OF SENSE TO 








SNSADD 




MVC 


UCBSNS(3,J),SNSBYT+3 


LAST 3 BYTES OF SENSE TO UCB 




BC 


15,4(LINKA) 


RETURN TO (LINKA)H 




EJECT 







* SEREP INTERFACE FOR I/O FAILURES 

* THIS ROUTINE SETS UP IN SYSTEM/360 MAIN STORAGE THE ELEMENTS WHICH 

* CONSTITUTE THE STANDARD SEREP INTERFACE. IT CAUSES A PSW, IN 

* WHICH I/O AND EXTERNAL INTERRUPTIONS ARE DISABLED, IN WHICH THE 

* WAIT STATE BIT IS ONE AND FOR WHICH THE LAST BYTE (ADDRESS FIELD) 

* IS SET TO ONE OF THE FOLLOWING VALUES, IS LOADED. 



A222G890 
A2220900 
A2220910 
A2220920 
A2220930 
A22209A0 
A2220950 
A2220960 
A2220970 
A2220980 
A2220990 
A2221000 
A22210IO 
A2221020 
A2221030 
A2221040 
A2221050 
A2221060 
A2221070 
A2221030 
A2221090 
A2221100 
A2221110 
A2221120 
A2221130 
A2221140 
A2221150 
A2221160 
A2221170 
A2221180 
A2221190 
A2221200 
A2221210 
A2221220 
A2221230 
A222124G 
A2221250 
A2221260 
A2221270 
A2221280 
A2221290 
A2221300 
A2221310 
A2221320 
A2221330 
A2221340 
A2221350 
A2221360 
A2221370 
A2221380 
A2221390 
A22214QG 
A2221410 
A2221420 
A2221330 



w** * ***** 



X f FF T 
X f 33 f 



MACHINE AND I/O FAILURES 
DEVICE NOT OPERATIONAL 



WHEN SEREP IS CALLED FROM OUTSIDE THE CONTROL PROGRAM , THE CSW, 
THE CAN AND THE INTERRUPTION CODE BITS IN THE OIGFSN ARE RESTORED, 
FURTHERMORE, IN THE CASE OF AN I/O DEVICE FAILURE, THE APPROPRI- 
ATE SENSE BYTES ARE TRANSFERRED TO LOCATIONS 24-29. 

WHEN SEREP IS CALLED FROM WITHIN THE CONTROL PROGRAM AFTER EITHER 
AN SIO OR TIO INSTRUCTION, THE SYSTEM/360 DEVICE ADDRESS IS SET 
UP IN THE OIOP5W. IN THE CASE OF AN I/O DEVICE FAILURE, THE 
BYTES AT LOCATIONS 24-29 ARE SET TO ZERO. 

IN ALL CASES, THE BYTE AT LOCATION 115 WILL BE SET TO ONE OF THE 
FOLLOWING VALUES. 



X'OF' 
X f lF f 
X f 3F f 



I/O CHANNEL FAILURE 
I/O DEVICE FAILURE 
DEVICE NOT OPERATIONAL 



SPACE 3 

* ENTER HERE FROM SVCINT ROUTINE * 

* SEREP CALLED FROM OUTSIDE CONTROL PROGRAM * 





SPACE 






SEREP 


LR 


WORK, I 


CALLING SEQUENCE ADDRESS IN WORK 




L 


1,2(1) 


RESTORE I 




TM 


2(W0RK),X f 3F' 


IS DEVICE OPERATIONAL 




BC 


1.SREP3S 


NO-GO TO SREP3S 




HVC 


CSW(8),SVCCSW(I) 


YES-RESTORE CSW 




HVC 


CAW(4),CAWABD(I) 


AND CAW 




TM 


2(W0RK),X*1F' 
12, SREPOS 


IS I/O DEVICE FAILURE 




BC 


NO-I/O CHANNEL FAILURE 




HVC 


24(3)>SNSADD(I) 


YES-SENSE BYTES 0-2 TO BYT 24-26 




BAL 


L3NK,GETUCB 


GET INDEX PAIR (J,K) OF UCB 




BC 


15,* 


NOT FOUND 




BC 


15,* 

27(3),UCBSNS(J) 


NOT FOUND V1L1 




HVC 


SENSE BYTES 3-5 TO BYTES 27-29 




BC 


15,SREP1I 


TREAT DEVICE FAILURE 


SREP1S 


XC 


24(G), 24 


DEVICE FAILURE-SIO/TIO,0 TO 








BYTES 24-26 


SREP1I 


MVI 


115,X f lF f 


DEVICE FAILURE-I/O INTERRUPTION 




XC 


0I0PSW(8),0I0PSW 


CLEAR OLD I/O PSM 




BC 


15, WAIT 
115,X T 0F f 


X f lF f TO BYTE 50, WAIT 


SREPOS 


MVI 


CHANNEL FAILURE-SIO/TIO 




BC 


15, WAIT 


INTERRUPTION, WAIT 


SREP3S 


MVI 


115,X'3F* 
119,X f 33 f 


CC=3 - NON -OPERATIONAL DEVICE 




NI 


FOUND BY SENSE ROUTINE 


WAIT 


HVC 


58(2), 2(1) 


DEV360(I) TO BYTES 58-59 




LPSW 


NHCPSW 


MACHINE-CHECK NEW P5W TO PSW 




EJECT 







TV J* ^CTKTVK X K 



A2221440 
A2221450 
A2221460 
A2221470 
A2221480 
A2221490 
A2221500 
A2221510 
A222152Q 
A2221530 
A2221540 
A2221550 
A2221560 
A2221570 
A2221580 
A2221590 
A2221600 
A222I610 
A2221620 
A2221630 
A2221640 
A2221650 
A222I660 
A222167Q 
A2221680 
A2221690 
A2221700 
A2221710 
A2221720 
A2221730 
A2221740 
A2221750 
A2221760 
A2221770 
A2221780 
A2221790 
A2221800 
A2221810 
A2221820 
A2221825 
A2221830 
A2221840 
A2221850 
A2221860 
A2221870 
A22218B0 
A2221890 
A2221900 
A2221910 
A2221920 
A2221930 
A2221940 
A2221950 
A2221960 
A2221970 



* 



CONSOLE COMMUNICATION 

THO TYPES OF CONSOLE COHHUNICATION HILL BE HANDLED BY THE CONTROL 
PROGRAM . THE FIRST TYPE MILL ALLOW A MESSAGE TO BE SENT FROM 
THE SIMULATOR TO THE CONSOLE PRINTER, AND THE SECOND TYPE MILL 
ALLOU TRANSMISSION OF A COMMAND FROM THE CONSOLE KEY BOARD TO THE 
SIMULATOR IN RESPONSE TO AN ATTENTION INTERRUPTION FROM THE OPER- 
ATOR. THERE ARE NO FACILITIES FOR PROCESSING QUEUES OF MESSAGES 
OR COMMANDS. 



MRITE MESSAGE ROUTINE 

A REQUEST TO MRITE A MESSAGE MAY BE SUBMITTED BY THE SIMULATOR TO 
THE CONTROL PROGRAM USING AN SVC CALLING SEQUENCE OF THE FORM= 

CNOP 2 ,4 
I SVC 4 

N DC X'NN f 

DC AL3(BUFF) 
1+6 ANY INSTRUCTION 

THE BYTES TO BE PRINTED HILL BE TAKEN FROM LOCATIONS BUFF*1, 
BUFF*2,...,BUFF*XW. THE CONTROL PROGRAM MILL SEND THE CON- 
TENTS OF THESE BYTES TO THE CONSOLE PRINTER USING A MRITE INHIBIT 
CARRIAGE RETURN COMMAND. CONSEQUENTLY, IF A NEW LINE IS RE- 
QUIRED AT THE END OF THE MESSAGE, THE "NEW LINE* CHARACTER SHOULD 
BE SET UP IN LOCATION BUFF*XW. 

IF THE CONTROL PROGRAM IS BUSY MITH SOME UNFINISHED READ OR MRITE 
REQUEST FOR THE PR INTER -KEYBOARD WHEN A MRITE MESSAGE CALLING SE- 
QUENCE IS SUBMITTED, THE CONTROL PROGRAM MILL CYCLE ON THE CAL- 
LING SEQUENCE UNTIL THE PREVIOUS REQUEST HAS TERMINATED. MHEN 
THE CONTROL PROGRAM ACCEPTS THE CALLING SEQUENCE, IT MILL SET THE 
CONTENTS OF THE BYTE AT ADDRESS BUFF TO X'00% MILL INITIATE THE 
MRITING OF THE MESSAGE AND MILL RETURN CONTROL TO ADDRESS 1*6. 



EJECT 



If wwwwwv 



MHEN THE REQUEST IS TERMINATED, THE CONTROL PROGRAM MILL SET THE 
BYTE AT ADDRESS BUFF TO SOME NON-ZERO VALUE. THU5= 

— A PROGRAMMING ERROR HAS BEEM DETECTED. THIS PROBABLY IN- 
DICATES THAT PART OF THE CONTROL PROGRAM HAS BEEN OVERWRIT- 
TEN. 

(BUFF)=X'03» 



* A2221980 

* A2221990 

* A2222000 

* A2222010 

* A2222020 

* A2222030 
A222204G 
A222205D 
A2222G60 
A222207G 
A222208D 
A2222D90 
A2222I00 
A2222110 

* A2222120 

* A222213Q 

* A222214Q 

* A2222150 

* A2222160 

* A2222170 

* A2222180 

* A2222190 

* A2222200 

* A2222210 

* A2222220 

* A2222230 

* A2222240 
A2222250 
A2222260 
A2222270 
A222228Q 
A222229D 
A2222300 
A2222310 
A2222320 
A2222330 
A222234Q 
A2222350 
A222236Q 
A2222370 
A2222380 
A2222390 
A22224GQ 
A222241G 
A222242Q 

* A2222330 

* A2222A40 

* A2222450 

* A2222460 

* A222247G 

* A2222480 

* A2222490 

* A2222500 

* A2222510 

* A2222520 



— A DEVICE ERROR HAS BEEN DETECTED DURING THE PRINTING OF THE 
MESSAGE. THE CONTROL PROGRAM WILL REPEAT THE MESSAGE. 
IF A SECOND ERROR OCCURS DURING THE PRINTING OF THE MESSAGE, 
A CONTROL ALARM MILL BE ISSUED. 

(BUFF)=X f 01 f 
IF NO SECOND ERROR OCCURS, 
(BUFF)=K f 07 f 

— A DEVICE ERROR HAS PREVENTED THE PRINTING OF THE MESSAGE. 
THE CONTROL PROGRAM HILL TRY TO REPEAT THE OPERATION. 
IF THE FAILURE OCCURS AGAIN, A CONTROL ALARM WILL BE ISSUED 
AND THE SEREP INTERFACE WILL BE SET UP. 
IF THE FAILURE DOES NOT OCCUR AGAIN, 

(BUFF)=X ¥ G7* 

— THE MESSAGE WAS WRITTEN WITHOUT ERROR. 
CBUFF)=X f Q7 f 



* WHEN THE SIMULATOR IS IN THE DISABLED STATE, A WRITE MESSAGE RE- 

* QUEST MAY NOT BE SUBMITTED UNLESS THE DISABLED STATE HAS BEEN 
. * CAUSED BY AN INTERRUPTION RESULTING FROM AN OPERATOR COMMAND AT 

* THE CONSOLE KEYBOARD. 
* 

* .../... 

XXX*XXXXXXXXXX*XXX*X£X*XXXXX*X*^^ 

EJECT 

x x 

* .../... * 

x x 

ic v , v v ,v ,v: it 

3«r Tl JW iWwrvc 



X 
X 



COMMAND INPUT ROUTINE 

WHEN THE ATTENTION KEY ON THE CONSOLE KEYBOARD IS DEPRESSED, THE 
SIMULATOR WILL BE INTERRUPTED AND THE CONTROL PROGRAM WILL BE EN- 
TERED. IN RESPONSE TO THIS INTERRUPTION, THE CONTROL PROGRAM 
WILL SET UP AND EXECUTE A READ COMMAND. INFORMATION WILL BE 
READ FROM THE CONSOLE KEYBOARD INTO A COMMAND BUFFER. WHEN THE 
READING OPERATION IS TERMINATED, CONTROL WILL BE RETURNED TO THE 
SIMULATOR AT A PREDETERMINED ADDRESS. 



BEFORE ANY INFORMATION 
BOARD TO THE SIMULATOR, 
FORM MUST BE SUBMITTED. 



CAN BE TRANSMITTED FROM THE CONSOLE KEY- 
AN SVC CALLING SEQUENCE OF THE FOLLOWING 



CHOP 
I SVC 
N DC 

DC 

COMLEN DC 
DC 

COMPSW DS 
1+18 ANY 



6,8 
5 

X ? NN* 
AL3CBUFF) 
X'QO* 

AL3CCOMRET) 
D 

INSTRUCTION 



A222253G 
A222254G 
A222255Q 
A22225&0 
A222257G 
A222258G 
A2222590 
A222260Q 
A2222G10 
A2222620 
A222263G 
A222263G 
A2222650 
A2222660 
A2222670 
A222268G 
A2222&90 
A22227GG 
A2222710 
A222272G 
A2222730 
A2222740 
A222275G 
A2222760 
A222277G 
A22227BG 
A2222790 
A22228GD 
A2222810 
A2222820 
A2222830 
A2222S4G 
A222285Q 
A2222860 
A2222870 
A222288G 
A222289G 
A22229G0 
A2222910 
A2222920 
A2222930 
A222294G 
A222295G 
A222296G 
A222297G 
A222298G 
A222299G 
A222300G 
A222301G 
A2223G2G 
A222303G 
A222304G 
A2223050 
A22230G0 
A2223G70 



THIS CALLING SEQUENCE HEED BE PRESENTED TO THE CONTROL PROGRAM 
ONLY ONCE, AND THE PARAMETERS WHICH IT CONTAINS WILL BE USED, AS 
DESCRIBED BELOW , IN CONJUNCTION WITH ALL C0HBAHD5 FROH THE OPERA- 
TOR. (ANY ATTENTION INTERRUPTIONS WHICH OCCUR PRIOR TO SUBMIT- 
TING THIS CALLING SEQUENCE WILL BE IGNORED . ) 



THE BYTE AT ADDRESS 
READ* 



COHLEN WILL CONTAIN THE NUMBER OF CHARACTERS 



X'NN' DENOTES THE MAXIMUM NUMBER OF CHARACTERS WHICH MAY BE READ. 
HENCE, THE NUMBER OF CHARACTERS, (COMLEN), MAY NEVER EXCEED XW. 

THE CHARACTERS OF ANY COfrftAND WILL BE PLACED IN LOCATIONS BUFF+1, 
BUFF*2 BUFF* ( COHLEN ) . 



EJECT 



THE FOLLOWING TERMINATION CONDITIONS 

READING OF A COHMAND= 



MAY BE ASSOCIATED WITH THE 



— A DEVICE ERROR HAS BEEN DETECTED DURING THE READING OF THE 
COMMAND. THE CONTROL PROGRAM WILL ISSUE AN ERROR MESSAGE 
FOR THE OPERATOR AND WILL RETURN CONTROL TO THE POINT OF 
INTERRUPTION. THUS, THE COMMAND IS IGNORED. 

— A CONTROL ALARM IS ISSUED AND THE 5EREP INTERFACE IS SET UP. 
THIS MAY BE THE RESULT OF ONE OF THE FOLLOWING CONDITIONS: 

- A DEVICE ERROR HAS PREVENTED THE READING OF THE COM- 
MAND. THE CONTROL PROGRAM HAS RETRIED THE OPERATION 
AND THE FAILURE HAS OCCURRED AGAIN. 

- THE ERROR MESSAGE TO THE OPERATOR IN THE CASE OF A 
DEVICE ERROR DURING THE EXECUTION OF A READ COMMAND 
CANNOT BE WRITTEN. 

— A PROGRAMMING ERROR HAS OCCURRED. THIS PROBABLY INDICATES 
THAT PART OF THE CONTROL PROGRAM HAS BEEN OVERWRITTEN. 

(BUFF)=X'Q3 f 

— THE COMMAND HAS BEEN READ WITHOUT ERROR. 

(BUFF)=X'07» 

FOR THE LAST TWO OF THESE TERMINATION CONDITIONS, CONTROL WILL BE 
RETURNED TO THE SIMULATOR AT LOCATION COMRET WITH ALL I/O AND EX- 
TERNAL INTERRUPTIONS DISABLED. THE PSW OF THE SIMULATOR AT THE 
POINT OF INTERRUPTION WILL BE PLACED IN LOCATION COMPSW. 

IN ORDER TO AVOID THE POSSIBILITY OF OVERWRITING THE INFORMATION 
IN THE COMMAND BUFFER BY A SUBSEQUENT COMMAND FROM THE OPERATOR, 



A22230BQ 
A2223090 
A22231GD 
A2223110 
A2223120 
A2223130 
A2223140 
A2223150 
A22231&0 
A2223I70 
A2223180 
A2223190 
A2223200 
A2223210 
A2223220 
A2223230 
A2223240 
A2223250 
A2223260 
A2223270 
A2223260 
A2223290 
A2223300 
A2223310 
A2223320 
A2223330 
A22233*0 
A222335G 
A222336Q 
A2223370 
A222338D 
A2223390 
A2223400 
A2223410 
A2223420 
A2223430 
A2223440 
A2223450 
A2223460 
A2223470 
A2223AS0 
A222349Q 
A2223500 
A2223510 
A2223520 
A222353D 
A22235A0 
A2223550 
A2223560 
A222357Q 
A2223580 
A2223590 
A2223G00 
A222361G 
A2223620 



THE SEQUENCE STARTING AT LOCATION COMRET SHOULD HAVE COMPLETELY 
PROCESSED THIS INFORMATION BEFORE RETURNING TO THE POINT OF IN- 
TERRUPTION. 

THE CANCEL CONDITION AT THE CONSOLE KEYBOARD WILL BE TREATED NOR- 
MALLY , I.E., A NEW REQUEST TO READ FROM THE CONSOLE KEYBOARD 
WILL BE ISSUED. 



& 

EJECT 

* ROUTINE TO TRANSMIT MESSAGES TO THE CONSOLE TYPEWRITER 
* 

* THIS ROUTINE IS ENTERED VIA THE SVC TABLE WHENEVER AN SVC 4 CAL- 

* LING SEQUENCE IS ENCOUNTERED. IT IS ENTERED WITH ONE PARAMETER, 

* THE SVC INDEX I. 



MESAGE 



MESGEA 



SPACE 






MVC 


MESSGRC28)>SVCGR 


SVCGR TO MESSGR 


HVC 


MESPSW(8),0SVPSW 


OSVPSW TO MESPSW 


ST 


I, TEMP 


SAVE I 


LA 


I,C0NS0L-2 


GET INDEX PAIR (J,K) OF ... 


BAL 


LINK,GETUCB 


... CONSOLE UCB. 


BC 


0,0 


UCB NOT FOUND, IGNORE. 


BC 


0,0 


UCB NOT FOUND V1L1 


L 


I, TEMP 


RESTORE I 


TM 


BORCH(J),BSYFLG 


IS BORCHCJ) = 01,10,11 
YES-START TO WRITE MESSAGE 


BC 


8, MESGEA 
I>MESPSW+4 


ST 


NO-CYCLE ON SVC, I TO MESPSW(A) 


BC 


15,HESRET 


RETURN TO CALLER 


HVI 


0PTYPE,X'01 f 


OPTYPE=0,CONSBY=01 


LA 


W0RK,HESC0M 


WRITE COMMAND ADDRESS TO (WORK) 


ST 


WORK,C0N50L+2 


WRITE COMMAND ADDRESS TO CAWADD 


L 


BUFF,2CI) 


CCI)*2) TO BUFF 


ST 


BUFF,ADBUFF 


BUFF TO ADBUFF 


HVI 


0(BUFF),XW 


X f 00 f TO (BUFF) 


LA 


WORK, 1( BUFF) 


SEQUENCE TO FORM I/O COftfAND 
CCW=X*01 f ,BUFFH,0,N 


ST 


W0RK>MESC0M 


01 


MESC0M,X f 01 f 




MVC 


MESC0H+7(1),2(I) 




AH 


I,DEC6 


1+6 TO MESPSW(A) 


ST 


I,HESPSW*4 




EJECT 







* EXECUTION ROUTINE FOR CONSOLE OPERATIONS * 
& * 

* THIS ROUTINE SUBMITS I/O REQUESTS FOR THE PROCESSING OF MESSAGES * 

* AND OF COMMANDS TO THE CONTROL PROGRAM AND PROCESSES THE RESULT- * 

* ING INTERRUPTIONS. * 

* WHEN THIS ROUTINE IS ENTERED, THE CALLING ROUTINE HAS SET PARAME- * 

* TERS TO INDICATE THE TYPE OF OPERATION TO BE EXECUTED. THERE ARE * 



A2223630 
A2223640 
A2223650 
A2223660 
A2223670 
A2223&8G 
A2223690 
A2223700 
A2223710 
A2223720 
A2223730 
A2223740 
A2223750 
A2223760 
A2223770 
A2223780 
A2223790 
A2223800 
A2223810 
A2223820 
A2223830 
A2223B4Q 
A2223650 
A2223860 
A2223S70 
A2223880 
A2223885 
A2223890 
A2223900 
A2223910 
A2223920 
A2223930 
A2223940 
A2223950 
A2223960 
A2223970 
A2223980 
A2223990 
A2224000 
A222401G 
A2224020 
A2224G30 
A2224040 
A2224050 
A2224G6G 
A222407G 
A2224G80 
A2224G90 
A2224100 
A2224110 
A2224120 
A2224130 
A2224140 
A2224150 
A2224160 



* FOUR TYPES OF OPERATIONS, INDICATED BY THE FOLLOWING PARAMETERS= * A2224170 

















A222418G 


* 


— ALRMSW 


= 


RDERSW = 


0 


WRITE MESSAGE 


* 


A222419G 


* 


OPTYPE 


= 


0 








A2224200 
















A22242I0 




— ALRMSW 




RDERSW = 


0 


READ COMMAND 




A222422G 




OPTYPE 




1 








A2224230 
















A2224240 




— ALRMS14 




1 




CONTROL ALARM 




A2224250 




RDERSW 




0 








A2224260 




OPTYPE 




0,1 








A2224270 














* 


A2224280 




— ALRKSM 




0 




NRITE SPECIAL MESSAGE TO 


* 


A2224290 




RDERSU 




1 




INDICATE EQUIPMENT CHECK 




A22243Q0 




OPTVPE 




1 




ENCOUNTERED DURING PRE- 




A2224310 












VIOUS READ COMMAND 




A222432G 
















A2224330 



A2224340 





SPACE 






A222435Q 


ME5GEB 


01 


CPSW,XW 


CPSW=1 


A2224360 




CHOP 


4,8 


CI NSMTT »T/rt A Kin fAMTTMMC T DETO 


A2224370 




SVC 


2 




A222438D 


CONSOL 


DC 


X*C009 f 


CONSOLE ADDRESS 


A2224390 




DS 


F 


console caw 


A2224400 


LND IB 1 


OS 


C 


CONSOLE STATUS 


A2224410 


CNSENS 


DS 


3C 


CONSOLE SENSE BYTES 


A222442D 


CNSCSW 


DS 


D 


CONSOLE CSW 


A2224430 


CN5PSW 


DS 


D 


CONSOLE PSU 


A2224440 




DC 


A (CNSNRM) 


ADDRESS OF ROUTINE TO TREAT 


A2224450 








NORMAL RETURN WHEN I/O 


A2224460 








INTERRUPTION OCCURS 


A2224470 




DC 


A(CNSEXC) 


ADDRESS OF ROUTINE TO TREAT 


A222448D 








EXCEPTIONAL RETURN WHEN I/O 


A2224490 








INTERRUPTION OCCURS 


A2224500 




XI 


CPSU,X'80 V 


CPSW=0 


A2224510 


MESRET 


LH 


1,7,HESSGR 


(MESSGR) TO GENERAL REGISTERS 


A2224520 


* 






1-7 


A2224530 




NI 


MESPSWU,X f FD f 


0 TO WAIT STATE BIT IN MESPSW 


A2224540 




CHOP 


2,4 
3 




A2224550 




SVC 




A2224560 




SPACE 3 




A2224570 




DC 


A(MESPSW) 


ADDRESS OF THE DOUBLE WORD IN 


A2224580 








I4HICH A PSW IS SAVED WHEN A 


A2224590 


* 






COMMAND OR MESSAGE ROUTINE IS 


A222460G 








ENTERED 


A2224&1Q 




SPACE 3 




A222462Q 
A2224630 
A222464Q 












NORMAL RETURN WHEN I/O INTERRUPTION OCCURS * 


A2224650 


* 


SPACE 




A2224660 
A2224670 
A2224680 




CNSNRM 


TM 


CPSW>X f 80 f 


IS CPSM=1 


A2224690 




BC 


1,CSNRMA 


YES-IGNORE SET-UP SEQUENCE 


A22247GQ 




STM 


1,7,MESSGR 


NO-GEN. REG. 1-7 TO MESSGR 


A2224710 





HVC 


HESPSW(8),CNSPSW 


CNSPSW TO NESPS& 


A2224720 


CSNRHA 


TH 


ALRHSW,X f lQ f 


IS ALRHS14=1 


A222473Q 




BC 


1,ALRHRS 


YES-RESTORE READ/WRITE COHHAND 


A222474G 




TH 


RDERSH,X f 20 f 


NO-IS RBERSW=I 


A2224750 




BC 


12,*U2 


NO-BRANCH TO CONTINUE 


A2224760 




HVI 


CONBSY,X'Q0 f 


YES-X*GO f TO C0NBSY>GO TO 


A2224770 




BC 


15,HESRET 


EXIT SEQUENCE 
X f 07 f TO TEMP 


A222478G 




HVI 


TEHP,X'07 f 


A222479G 


CSKRM3 


XI 


CONBSY,X ? Ql f 


0 TO CGNBSY 


A22248G0 




TH 


OPTYPE>X f 02 f 


IS THIS A READ OPERATION 


A2224B10 




BC 


1> CSNRHC 


YES-GO TO READ SEQUENCE 


A222482G 




L 


WORK,ABBUFF 


NO -WRITE OFN. ,(ADBUFF) TO (WORK) 


A222483D 




HVC 


G(l,WORK),TEHP 


(TEMP) TO (WORK) OPERATION 


A222484G 




BC 


15>HESRET 


TERHINATED ,RETURN TO CALLER 


A222485G 


CSNRHC 


LH 


WQRK,C0HC0H+6 


READ SEQUENCE 


A2224860 




SH 


NORK,CNSCSN+6 


COUNT OF BYTES READ TO COHLEN 


A2224870 




L 


NGRKA,ACHLEN 




A22248S0 




STC 


NORK,Q(WORKA) 




A2224890 




L 


WORK,ACHBUF 




A22249G0 




HVC 


G(l,WORK),TEHP 


CTEHP) TO COHBUF 


A222491G 




HVC 


4(8,W0RKA),HESPSW 


HESPSW TO CQHPSW 


A222492G 




NI 


5(WORKA),X f FD ? 


0 TO WAIT STATE BIT IN 5VCPSW 


A2224930 




HVC 


KESPSW+5(3),ACMRET 


COHRET TO HESPSW(A) 


A2224940 




HVI 


HESPSW,X'GG f 


DISABLE I/O AND EXTERNAL INTER- 


A222495Q 




BC 


15,HESRET 


RUPTIONS, GO TO INTERRUPT 


A2224960 




EJECT 






A2224970 




A22249S0 










A2224990 




EXCEPTIONAL RETURN WHEN I/O INTERRUPTION OCCURS 


A2225GG0 


vy .xj- ty w v v v 








A22250I0 
A2225Q2G 
A2225G3G 




SPACE 2 




CNSEXC 


TH 


CFSH,X f 80 f 


IS CPSW=1 


A2225G4Q 




BC 


1,CSEXCA 


YES-IGNORE SET-UP SEQUENCE 


A2225G50 




STH 


1,7,HESSGR 


NO-GEN. REG. 1-7 TO HESSGR 


A222506G 




HVC 


HESPSkU8),CNSPSW 


CNSPSW TO HESPSW 


A222507G 


CSEXCA 


TH 


CNSTAT,X'G2 f 


IS ERRTYP-2 OR 3 


A2225G60 




BC 


1>CSEXCB 


YES-GO TO TREAT ERRTYP CONDITION 


A222509G 




LA 


I,C0NS0L-2 


RESTORE I TO SET UP SEREP INTER- 


A22251G0 








FACE 


A22251IG 




TH 


CNSTAT,X'Ql f 


NO-IS ERRTYP=1 


A2225120 




BC 


1,SREP3S 


YES-DEVICE NOT OPERATIONAL , SET 


A222513G 








UP SEREP INTERFACE 


A2225I40 




BC 


15,CSEXCC 


NO-GO TO TEST FOR UNIT EXCEPTION 


A222515Q 


C5EXCB 


HVI 


TEHP,X'G3» 

15,C5NRHB 


ERRTYP =2 OR 3-X*03 f TO (TEMP) 


A22251G0 




BC 


RETURN TO CALLER OR TO INTER- 


A2225170 








RUPTION INTERFACING SEQUENCE 


A222518G 


CSEKCC 


TH 


CNSCSH*4,UE 


IS UNIT EXCEPTION PRESENT 


A222519G 




BC 


8, CSEXCD 


NO-LOOK FOR UC 


A22252GG 




TH 


OPTYFE,X f 02 t 


YES-IS THIS A READ OPERATION 


A2225210 




BC 


8,5REP1I 


NO-CALL SEREP ,1/0 DEVICE ERROR 


A2225220 




BC 


15,HESGEB 


YES-CANCEL, RETRY READ OPERATION 


A222523G 


CSEXCD 


TH 


CNSENS,CR 


UNIT CHECK-IS THIS A COHHAND 


A222524G 








REJECT 


A2225250 




BC 


1,CSEXCB 


YES-TREAT COHHAND REJECT 


A222526G 





TH 


CN5EN5,X'0E T 


NO -ANY INVALID SENSE BIT PRESENT 


A2225270 




BC 


5»SREP1I 


YES-CALL SEREP>I/0 DEVICE ERROR 


A2225280 




TN 


ALRHSM,X*10 f 


IS ALRNSI4-1 


A222529Q 




BC 


1>ALRMRS 


YES-GO TO RESTORE READ/NRITE 


A2225300 




TN 


CNSENS,EQUCHK 


NO-IS EQUIPMENT CHECK 


A222531G 




BC 


8, CSEXCG 


NO-GO TO TEST IF INTERVENTION 


A2225320 








REQUIRED 


A2225330 




TN 


0PTYPE>X f Q2 f 


YES-IS THIS A READ OPERATION 


A2225340 




BC 


8,CSEXCE 


N0-NRITE OPERATION, GO TO PROCESS 


A2225350 




XI 


OPTYPE,X'02 f 


YES-0 TO 0PTYFE 


A22253G0 




01 


RDER5y,X'20 f 


1 TO RDERSH 


A2225370 




LA 


N0RK,ERDCO4 


READ ERROR CCH ADDRESS TO CAHADD 


A2225350 




ST 


N0RK,C0NS0L+2 




A2225390 




BC 


15,HESGEB 
RDERSH,X f 20* 


WRITE OUT HESSAGE 


A2225400 


C5EXCE 


TH 


IS RDERSH=1 


A2225410 




BC 


1>HESRET 


YES-RETURN TO POINT OF INT. 


A2225420 




TN 


RETRSM,X'08 f 


NO-IS RETRSM=1 


A222543G 




BC 


8, CSEXCF 


NO-GO TO RETRY HESSAGE 


A2225A40 




BAL 


LINK > ALARM 


YES-ISSUE CONTROL ALARM 


A2225450 




HVI 


TEHP>X'0I* 


X'Ql* TO (TEMP) 


A222546Q 




BC 


15,CSNRHB 
RETRSI4,X T C8 f 


RETURN TO POINT OF INTERRUPTION 


A2225470 


CSEXCF 


01 


1 TO RETRSW 


A2225A60 




BC 


15,NESGEB 
CNSENS>INTREQ 


RETRY HESSAGE 


A2225490 


CSEXCG 


TH 


IS INTERVENTION REQUIRED 


A2225500 




BC 


8>CSEXCH 
INTS«,XW 


NO-GO TO TEST FOR BUS OUT CHECK 


A2225510 




TH 


YES-IS INTERVENTION REQUIRED 


A2225520 


* 






SIGNALED 


A2225530 




BC 


1,HESGEB 


YES-RETRY 


A222554Q 




01 


INTSM>XW 
LINK* ALA RH 


NO-1 TO INTSJ4 


A2225550 




BAL 


ISSUE CONTROL ALARM 


A222556G 




BC 


15 »HE5GEB 


RETRY 


A2225570 


CSEXCH 


TH 


RETRSN>X f 08* 


BUS OUT CHECK-IS RETRSN=1 


A2225580 




BC 


8, CSEXCJ 


NO-GO TO RETRY 


A2225590 




IC 


H0RK>CNSCSiW 


YES-SAVE DEVICE STATUS 


A2225600 




BAL 


LINK >ALARH 


ISSUE CONTROL ALARM 


A222561Q 




STC 


W0RK,CNSCSW*4 


RESTORE DEVICE STATUS 


A2225620 




TH 


CNSCSNM,BE 


IS DEVICE END PRESENT 


A222563Q 




BC 


8>SREP1I 


NO-CALL SEREP,I/0 DEVICE ERROR 


A2225640 




TH 


RDERSH»X f 2Q f 


YES-IS RDERSH=1 


A2225650 




BC 


1>HE5RET 


YES-RETURN TO POINT OF INT. 


A2225660 




HVI 


TEMP, X f 01' 


NO-X*01 f TO (TEHP) 


A222567G 




BC 


15»CSNRHB 
RETRSN,X'Q8* 


RETURN TO POINT OF INTERRUPTION 


A2225680 


CSEXCJ 


01 


1 TO RETRSW 


A2225&90 




BC 


15 >HESGEB 


RETRY 


A2225700 




EJECT 


A2225710 
A2225720 
A2225730 






ROUTINE TO SET PARAHETERS FOR THE READ COKNAND ROUTINE * 


A2225740 


** 






* 


A2225750 


* THIS ROUTINE IS ENTERED VIA THE SVC TABLE WHENEVER AN SVC 5 CALL- * 


A2225760 


* INS SEQUENCE IS ENCOUNTERED. 




A2225770 


>cv< >e >c * >r .Sf 5«r >r ^ ^ 

SPACE 






A2225780 
A2225790 
A2225800 




SETCQH 


HVC 


C0HC0H*7(1)>2(I) 


(1*2) TO N 


A2225810 



L 


N0RK,2CI) 


COHBUF TO (ACHBUF) 


ST 


W0RK,ACMBUF 
N0RK,1(W0RK) 




LA 


COHBUF+1 TO COHCOH(A) 


ST 


N0RK,C0MC0M 




01 


C0HC0H,K f QA f 


READ OPERATION TO COHCOH 


AH 


I,DEC6 


COMLEN TO (ACMLEN) 


ST 


I,ACHLEN 


% 


HVC 


ACMRET(3),1CI) 


COMRET TO (ACMRET) 


AH 


I,DEC12 


1+18 TO OSVPSH(A) 


ST 


I,0SVPSWH 




L 


J>JC0NS 


COHPSW TO ATTSW FOR CONSOLE 


HVC 


DEVATT(4,J),ACMPSW 




BC 


15>ENARET 


OSVPSW TO PSM, RETURN TO CALLER 


SPACE 2 





xr .v >y .m- wvf v \r v v x« 



ROUTINE TO READ COHHANDS FROM CONSOLE KEYBOARD 

THIS ROUTINE IS ENTERED WHENEVER AN ATTENTION INTERRUPTION FOR 
THE 1052 PRINTER-KEYBOARD IS DETECTED BY THE CONTROL PROGRAM. 

THE PSW OF THE SIMULATOR AT THE POINT OF INTERRUPTION MILL BE 
PLACED IN THE DOUBLE WORD WITH ADDRESS CGHP5W AND CONTROL WILL 
BE TRANSFERRED TO ADDRESS C0MPSW*8 (THE ROUTINE COHAND STARTS 
AT THIS ADDRESS). THE ADDRESS DEVATT OF THE UCB ASSOCIATED 
WITH THE 1052 CONTAINS THE ADDRESS COHPSW. 



SPACE 

COHPSW DS D 

COHAND STH 1,7,MESSGR 

HVC HESPSW(8), COHPSW 

LA I,C0NS0L-2 

BAL LINK,GETUCB 

BC 0,0 

BC 0,0 

TH BORCH(J),BSYFLG 

BC 5 >MESRET 

HVI OPTYPE,X'03 f 

LA WORK, COHCOH 

ST W0RK,C0NS0L+2 

BC 15,MESGEB 
EJECT 



chndb 



CONTROL ALARH ROUTINE 



OLD I/O PSW FOR ATTENTION 

INTERRUPTION 
GENERAL REGISTERS 1-7 TO MESSGR 
COHPSW TO HESPSW 
GET INDEX PAIR (J,K) OF ... 
... CONSOLE UCB. 
UCB NOT FOUND, IGNORE. 
UCB NOT FOUND V1L1 
IS BORCH(J) = FREE FLAG 
RETURN TO POINT OF INTERRUPT 
OPTYPE=I>CONBSY=01 
READ CCW ADDRESS IN CAWADD 

TRY TO EXECUTE READ OPERATION 



* THIS ROUTINE IS CALLED IN ORDER TO EXECUTE A CONTROL ALARH RE- * 

* QUEST. IT IS ENTERED WITH THE CALLING SEQUENCE, * 



BAL 



LINK, ALARM 



SPACE 



A2225S20 
A2225830 
A2225840 
A2225850 
A222586Q 
A2225870 
A2225880 
A2225S9G 
A22259GQ 
A2225910 
A2225920 
A2225930 
A2225940 
A2225950 
A2225960 
A2225970 
A2225980 
A2225990 
A222G000 
A2226010 
A2226020 
A2226G30 
A2226G40 
A2226050 
A22260G0 
A222G070 
A2226080 
A222&G9Q 
A222G1QG 
A2226110 
A222612G 
A2226130 
A222614G 
A2226150 
A2226160 
A2226170 
A2226175 
A2226180 
A2226190 
A2226200 
A222G210 
A222G22G 
A2226230 
A2226240 
A2226250 
A222626Q 
A2226270 
A222628G 
A2226290 
A222G3DQ 
A2226310 
A2226320 
A2226330 
A2226340 
A2226350 



ALARM 



ALRMRS 



5TM 


NORK ,LINK , ALMLNK 


SAVE (LINK) IN ALMLNK 


MVC 


ALMCMD(4),C0NS0L+2 


SAVE READ/WRITE COMMAND 


LA 


k f 0RK»ALHCCH 


ALARM CCN ADDRESS IN CAMADD 


ST 


M0RK,C0NS0L+Z 




01 


ALRMSW,X'lG f 


I TO ALRHSW 


BC 


15>HESGEB 


TRY TO EXECUTE ALARM COMMAND 


SPACE 


2 




XI 


ALRMS&,X*1G T 


0 TO ALRMSN 


MVC 


CQNS0L+2(4),ALMCMD 


RESTORE READ/WRITE COMMAND 


LK 


HORK , LINK > ALMLNK 


RESTORE LINK 


BCR 


15, LINK 


RETURN TO READ/WRITE E.R.P. 


EJECT 







DEFINITION OF PARAMETERS USED IN CONSOLE * 

COmUNICATION ROUTINES * 





SPACE 


ALHLNK 


DS 






ALMCMD 


DS 






C0NB5Y 


DC 




SPACE 


* 


















SPACE 


OPTYPE 


EQU 




SPACE 




















SPACE 


INTSI4 


EQU 


RETRSH 


EQU 


ALRMSN 


EQU 


RDERSW 


EQU 




SPACE 



2F 
4C 

XW 



CONBSY 



CONBSY 
CONBSY 
CONBSY 
CONBSY 



* 



SPACE 



USED BY ALARM ROUTINE TO SAVE 
SUBROUTINE RETURN ADDRESS 

USED BY ALARM ROUTINE TO SAVE 
READ/WRITE COMMAND 

A ONE-BIT QUANTITY DEFINED THUS= 

WHEN THE CONTROL 
PROGRAM IS BUSY I4ITH A 

READ/WRITE SEQUENCE, C0NBSY=1 

OTHERWISE, CONBSY=0 

A ONE-BIT QUANTITY DEFINED THUS= 

OPTYPE=0 A MESSAGE IS BEING 

NRITTEN 
0PTYPE=1 A COMMAND IS BEING 

READ 

FOUR ONE BIT QUANTITIES USED 
DURING ERROR RECOVERY PROCE- 
DURES ON THE 1052 PRINTER- 
KEYBOARD, AND DEFINED THUS= 



NHEN AN INTERVENTION 
REQUIRED CONDITION HAS 
BEEN DETECTED AND A 
CONTROL ALARM HAS BEEN 
ISSUED, 
OTHERWISE, 



WHEN A BUS OUT OR AN 
EQUIPMENT CHECK CONDI- 
TION HAS BEEN DETECTED 
AND ONE RETRY HAS BEEN 
EFFECTED, 
0THERI4ISE, 



INTSN=1 
INTSH=0 



RETRSW=1 
RETRSW=G 



A2226360 
A2226370 
A2226380 
A222G390 
A22264GG 
A2226410 
A222642G 
A2226430 
A2226440 
A2226450 
A22264GG 
A222647G 
A2226480 
A2226490 
A222&5G0 
A222651G 
A2226520 
A222G530 
A2226540 
A2226550 
A2226560 
A222657G 
A22265S0 
A2226590 
A22266Q0 
AZ226610 
A222&&2G 
A222663G 
A222664G 
A22Z6G50 
A2226660 
A222&670 
A2226680 
A222669G 
A22267G0 
A2226710 
A2226720 
A2226730 
A222G74G 
A222675Q 
A2226760 
A2226770 
A2226780 
A222679G 
A2226800 
A2226SI0 
A2226820 
A222683G 
A222&840 
A2226850 
A222£8&Q 
A2226870 
A2226880 
A222689G 
A222690D 





SPACE 






A2226910 


* 






WHEN A CONTROL ALARM 


A222692G 








REQUEST HAS BEEN SUB- 


A2226930 








MITTED, ALRMSN=1 A2226940 
OTHERWISE, ALRMSN=0 A2226950 


* 








SPACE 






A22269G0 








MHEN AN EQUIPMENT 


A222697G 


* 






CHECK CONDITION HAS 


A2226980 








BEEN DETECTED DURING 


A222699G 








THE READING OF A 


A2227000 








COMMAND, RBERSM=1 A2227010 








OTHERWISE, RDER5M=0 A222702D 




SPACE 






A2227030 


CPSH 


EQU 
SPACE 


C0N8SY 


A ONE-BIT QUANTITY DEFINED THU5= 


A2227040 
A2227050 








CP5H=1 JUST PRIOR TO SUBMIT- 


A22270S0 








TING AN I/O REQUEST AND A2227070 








CONTINUE 


A2227080 








CPSM=G IF CONTROL IS RETURNED 


A2227090 


* 






TO THE INSTRUCTION FOL- 


A222710D 








LOWING THIS REQUEST 


A2227110 








BEFORE A NORMAL RETURN 


A2227120 








OR AN EXCEPTIONAL RE- 


A2227130 








TURN INTERRUPTION 


A22271^0 




SPACE 




OCCURS 


A222715Q 
A222716Q 


ERDNES 


DC 


C T A2 f 


READ ERROR MESSAGE 


A2227170 




DC 


C f 14A EQUIPMENT f 
C* CHECK-TRY f 




A2227160 




DC 




A2227190 




DC 


C 'AGAIN f 


* 


A222720D 




DC 


X'15* 




A2227210 




EJECT 






A2227220 


ADBUFF 


D5 


F 


USED TO SAVE THE CONTENTS OF 


A2227230 








GENERAL REGISTER BUFF IN THE 


A2227240 




SPACE 




MESSAGE TRANSMISSION ROUTINE 


A2227250 
A2227260 


TEHP 


D5 


D 


TEMPORARY STORAGE 


A2227270 


SNSBYT 


EQU 


TEHP 


SENSE BYTES BUFFER 


A2227280 


mszm 


CCM 


XW, TEMP, 0,6 


SENSE CCM 


A2227290 


ME5C0M 


CCM 


X f Gl f ,*,Q,0 


NRITE MESSAGE C04 


A2227300 


ALMCCM 


ecu 


X'GB f ,*,0,l 


CONTROL ALARM CCM 


A22273I0 


ERDCCM 


CCM 


X f 01*,ERDMES,X f 20 T ,32 


READ ERROR COMMAND CCM 


A2227320 


COHCOH 


CCM 


X r aA f ,*,0,0 


READ COMMAND CCM 


A2227330 


ACMBUF 


DC 


A(O) 


ADDRESS OF COMMAND BUFFER 


A2227340 


ACMLEN 


DC 


A(O) 


ADDRESS OF COffiAND LB4GTH 


A2227350 


ACHRET 


DC 


AL3(0) 


ADDRESS OF RETURN FOR MESAGE/ 


A22273G0 


9* 






COMAND ROUTINES 


A2227370 




SPACE 2 




A2227380 


PRBA5E 


DS 


F 


USED TO SAVE THE CONTENTS OF 


A2227390 








GENERAL REGISTER BASE DURING 


A22274Q0 








THE PROCESSING OF PROGRAM 


A2227410 








INTERRUPTIONS 


A2227420 




SPACE 2 




A2227430 


EXBASE 


DS 


2F 


USED TO SAVE THE CONTENTS OF 


A22274S0 








GENERAL REGISTERS BASE AND 


A2227450 









WORK DURING THE PROCESSING OF 


A222746G 




SPACE 




EXTERNAL INTERRUPTIONS 


A2227470 
A2227480 


FOINTA 


DS 


F 


USED TO SAVE THE CONTENTS OF 


A2227490 








GENERAL REGISTER POINTR IN THE 


A22275G0 




SPACE 




UNSTAK ROUTINE 


A222751G 
A2227520 


PRPSHA 


DC 


A(0) 


ADDRESS OF PROGRAM PSJ4 


A2227530 


EXTPSH 


DC 


A(0) 


ADDRESS OF EXTERNAL PSW 


A2227540 


ACMPSH 


DC 


ACCOMPSH) 


ADDRESS OF COHHAND INTERRUPTION 


A2227550 








PSW 


A2227560 


JCONS 


DC 


A(0) 


ADDRESS OF UCB FOR CONSOLE 


A2227570 


TIHINA 


DC 


ACO) 


ADDRESS OF TIMER INTERRUPTION 


A2227580 








RETURN 


A2227590 


KEY IMA 


DC 


A(0) 


ADDRESS OF INTERRUPT KEY INTER- 


A2227600 








RUPTION RETURN 


A222761Q 


SENSI4 


DC 


XW 


SENSE SNITCH 


A222762G 


ZEROS 


DC 


X f 0000 f 




A2227&3D 


SNSCNT 


DC 


K ? 00V 


NUHSER OF SENSE OPERATIONS TO 


A2227640 




- 




BE PERFORHED 


A222765Q 


PRRETA 


DC 


AL3C0) 


ADDRESS OF PROGRAM INTERRUPTION 


A222766G 








RETURN 


A2227670 


EXTSS4A 


DC 


AL3CEXTINT) 


ADDRESS OF ROUTINE TO PROCESS 


A2227680 




SPACE 




EXTERNAL INTERRUPTIONS 


A2227690 
A2227700 


AIOMIN 


DC 


AL3(IOHINT) 


ADDRESS OF THE INTERRUPTION 


A2227710 








PROCESSING SEQUENCE OF THE 


A222772D 








I/O REQUEST AND WAIT ROUTINE 


A2227730 




SPACE 


2 




A2227740 


AIOCIN 


DC 


AL3CIOCINT) 


ADDRESS OF THE INTERRUPTION 


A2227750 








PROCESSING SEQUENCE OF THE I/O 


A2227760 




SPACE 




REQUEST AND CONTINUE ROUTINE 


A2227770 
A22277SG 


INTCD1 


DC 


X'OGOl' 


INTERRUPTION CODE = 1 


A2227790 


ATTS14 


DC 


XW 


USED TO INDICATE WHETHER OR NOT 


A22278QG 








ATTENTION INTERRUPTIONS ARE TO 


A2227810 








BE IGNORED 


A2227820 


UNSTSW 


DC 


XW 


USED IN UNSTAK ROUTINE TO INDI- 


A222783G 








CATE WHETER OR NOT THE LAST 


A222784G 








UNSTACKED OPERAT. WAS A SENSE 


A2227850 


ONE 


EQU 


X'QP 




A22278G0 


ZERO 


EQU 


X f 0G» 




A222787Q 


ONES 


EQU 


X f FF f 




A222788D 




SPACE 


2 




A2227890 


DttZ 


DC 


H f 2 T 


BLCInAL CONSiANib 


A2227900 


DECS 


DC 


H%» 




A2227910 


DEC12 


DC 


H f 12 f 




A2227920 


DEC20 


DC 


H f 2Q* 




A2227930 


DEC24 


DC 


H*24 f 




A2227940 


DEC36 


DC 


H'36 f 




A2227950 


DEC40 


DC 


B f 40* 




A2227960 




EJECT 

» vj. nj> y y v- y v y y y y y y y y y y y y v .y y v - 




A2227970 
A2227980 
A2227990 







* CHANNEL TABLE (CHTAB) * A2228000 



THIS TABLE CONSISTS OF B CONSECUTIVE WORDS, EACH WORD CORRESPOND- 
ING, IN ORDER, TO THE EIGHT POSSIBLE CHANNEL ADDRESSES 0 TO 7. 

EACH WORD CONTAINS THE ADDRESS OF THE FIRST ELEMENT OF THE CHAN- 
NEL CONTROL BLOCK FOR THE CORRESPONDING CHANNEL. 

IF THE CONTENTS OF A PARTICULAR WORD IS ZERO, THE CORRESPONDING 
CHANNEL IS NOT AVAILABLE. SINCE CHANNEL 7 CANNOT EXIST ON THE 
SYSTEM/360, THE LAST WORD OF CHTAB ALWAYS CONTAINS ZERO. 

CHANNEL CONTROL BLOCKS (AND THE CORRESPONDING UNIT CONTROL BLOCKS) 
WILL BE SET UP BY THE INITIALIZER PROGRAM , BASED ON INFORMATION 
ENTERED ON CONTROL CARDS. 



CHTAB 



SPACE 




DC 


8F f 0 f 


DC 


A(COMCOM) 


DC 


ACJCONS) 


DC 


A(CONSOL) 


DC 


A (CHTAB) 


DC 


A(DHP360) 


DC 


X f FF f 


END 





ENTRY POINTS - FROM THE SIMULA- 
TOR, THE I/O SUPPORT PACKAGE 
AND THE CONTROL PROGRAM 
INITIALIZATION ROUTINE 

SYSTEM/360 DUMP ADDRESS 



AZ3B TITLE 
IOPACK START 3483 

USING *,IOBASE 

SPACE 

v v v v vr xf \f v XT ,y xj vr v> v> vr v> xr \j v? \r vr v r vr v vr vr \r : 

I/O SUPPORT PACKAGE PROGRAM 



THE I/O OPERATIONS 
PERFORM ARE= 



'I/O SUPPORT PACKAGE FOR CURRENT SYSTEMS SIMULATORS* 

THIS ASSEMBLY LOCATION MUST ALSO 

* BE SPECIFIED BY THE OPERANDS 

* OF DC STATEMENTS AT ADDRESSES 

* SVCTAB+34,5VCTAB*36 IN CONTROL 

* PROGRAM. 



FOR 

IBM SYSTEM/360 SIMULATOR FOR THE IBM 1620 



THE I/O SUPPORT PACKAGE IS A PROGRAM CONSISTING OF A SET OF SUB- 
ROUTINES WHICH PERFORM VARIOUS OPERATIONS ON SYSTEM/360 I/O DE- 
VICES. 



WHICH THE I/O SUPPORT PACKAGE IS DESIGNED TO 



READ A CARD IBM 2540, 2501, 2520, 1442 

PUNCH A CARD (OPTIONAL) IBM 2540, 2520, 1442 

WRITE A MESSAGE IBM 1052 

READ A COMMAND IBM 1052 

PRINT A LINE IBM 1403, 1443 



A2228010 

A2228020 
A2228030 
A2228040 
A2228050 
A2228060 
A2228070 
A2223030 
A2228090 
A2228100 
A2228110 
A2228120 
A2228I30 
A2228140 
A2228150 
A2228160 
A2228170 
A2228180 
A2228190 
A2223200 
A2228210 
A2228220 
A2228230 
A2228240 
A2228250 

A2300020 
A2300030 
A23G0G40 
A2300050 
A2300060 
A23GQG70 
A2300030 
A2300090 
A2300100 
A2300110 
A2300120 
A2300130 
A2300140 
A2300150 
A2300160 
A230D170 
A2300180 
A2300190 
A2300200 
A23G0210 
A2300220 
A2300230 
A2300240 
A2300250 
A23QQ26G 
A2300270 
A2300280 
A2300290 
A2300300 



PRINT A LINE AND SKIP 
TO FIRST LINE ON 
NEXT PAGE 
READ A TAPE RECORD 
WRITE A TAPE RECORD 
WRITE A TAPE HARK 

THESE ROUTINES ARE ALL 
THUS, PROGRAM EXECUTION 
TION IS TERMINATED. 



IBM 1403, 1443 
IBM 2400 (7 AND 9-TRACK) 
IBM 2400 (7 AND 9-TRACK) 
IBM 2400 

DESIGNED FOR NON -OVERLAPPED OPERATION. 
MILL BE SUSPENDED UNTIL THE I/O OPERA- 



THE I/O SUPPORT PACKAGE EXAMINES THE ERROR 
OCCUR WHEN OPERATING THE ABOVE MENTIONED 
ACTION PRESCRIBED BY SYSTEM/360 STANDARDS. 



CONDITIONS WHICH CAN 
DEVICES AND TAKES THE 
OPERATOR MESSAGE FA- 



CILITIES ARE PROVIDED VIA THE 1052 PRINTER-KEYBOARD. 



EJECT 

LOGICAL I/O OPERATION REQUESTS 



BEFORE A LOGICAL I/O 
I/O SUPPORT PACKAGE, 
FORM MUST BE 5UBMITTED= 



OPERATION REQUEST CAN BE SUBMITTED TO THE 
AN SVC CALLING SEQUENCE OF THE FOLLOWING 



CNOP 
I SVC 
SYMBOL DS 
DEV360 DC 
TYPE 
IOTYPE 



DC 
DS 
DC 



0,4 

17 

6C 

X*0DDD f 
C f TTTT 1 
C 

AL3( ERROR) 



1+20 ANY INSTRUCTION 

THIS CALLING SEQUENCE ASSIGNS A 
SYMBOLIC NAME SYMBOL. 



SYSTEM/360 DEVICE ADDRESS TO THE 



SYMBOL IS A SYMBOLIC NAME ASSIGNED BY THE SIMULATOR TO A 
SYSTEM/360 DEVICE. THIS NAME MAY CONTAIN FROM ONE TO EIGHT CHAR- 
ACTERS, BEING ANY COMBINATION OF ALPHABETIC AND NUMERIC CHARAC- 
TERS. THE FIRST CHARACTER MUST BE ALPHABETIC, THE SYMBOL IS LEFT 
ADJUSTED, AND ALL REMAINING CHARACTERS IN THE EIGHT-BYTE FIELD 
MUST BE BLANK. 

IOTYPE IS ONE CHARACTER, I OR 0, WHICH SPECIFIES THE TYPE OF OP- 
ERATION (INPUT OR OUTPUT) TO BE PERFORMED ON THE DEVICE NAMED 
SYMBOL . DDD DENOTES THE SYSTEM/360 ADDRESS AND TTTT THE TYPE OF 
THIS DEVICE. 



THE TYPES OF DEVICE AND THE CORRESPONDING 
THESE DEVICES ARE AS FOLLOWS^ 



OPERATIONS ACCEPTED ON 



2540, 2520, 
2501 



1442 



1(0 OPTIONAL) 
I 



A2300310 
A2300320 
A2300330 
A2300340 
A2300350 
A2300360 
A2300370 
A2300330 
A2300390 
A2300400 
A2300410 
A2300420 
A2300430 
A2300440 
A2300450 
A2300460 
A2300470 
A23G04S0 
A2300490 
A2300500 
A2300510 
A2300520 
A2300530 
A2300540 
A2300550 
A2300560 
A2300570 
A2300580 
A23O059O 
A2300600 
A2300610 
A2300620 
A2300630 
A230G640 
A2300650 
A2300660 
A2300670 
A2300680 
A2300690 
A23007G0 
A2300710 
A2300720 
A2300730 
A2300740 
A23Q0750 
A2300760 
A2300770 
A2300780 
A230079G 
A230C800 
A2300810 
A2300820 
A2300830 
A2300840 
A2300850 



1403, 1443 

2400 
1052 



I AND 0 (*) 
I AMD 0 



(*) FOR AH I/O OPERATION OH THE 2400 MAGNETIC TAPE, 7T, BCD MODE, 
IOTYPE CONSISTS OF TOO FOUR-BIT DIGITS DENOTED , FROM LEFT TO 
RIGHT, AS D0>D1. 

DO SPECIFIES THE TYPE OF OPERATION 



Dl SPECIFIES THE DENSITY 



f l f 
f 0 f 

» 5 f 
'8' 



INPUT OPERATION 
OUTPUT OPERATION 
200 BPI 
556 BPI 
800 BPI 



.../.„ 



EJECT 

v> iy v vt \t \- \r \f \> v v v. v \? v Vf \r v v v *f v/ ->j \r x.f vr v s.' n_t vr v vr vr - r v v v v v \r v_r v \f v >-r vr nj- \r xf xt vr Vf ^ x/ ^j- ir 



.../.., 

WITH EACH GROUP f SYMBOL, DEV 360* IS ASSOCIATED A BLOCK OF CONTROL 
INFORMATION IN A TABLE CALLED SYMBOL TABLE. 

THE I/O SUPPORT PACKAGE VERIFIES THE FOLLOWING CONDITIONS= 

—THE SYMBOL TABLE IS NOT FULL 

IF THE TABLE IS FULL, IOTYPE IS SET TO X*01* 



-A ROUTINE EXISTS FOR THE OPERATION 
THE DEVICE TO BE USED 

IF NOT, IOTYPE IS SET TO X s 02 f 



TO BE PERFORMED AND FOR 



— A UNIT CONTROL BLOCK IN THE CONTROL PROGRAM EXISTS FOR THIS 
DEVICE 

IF NOT, IOTYPE IS SET TO X f 03 T 

IN THE ABOVE CASES, WHEN IOTYPE IS SET TO X'Ql*, X*02 ? , OR X*03*, 
CONTROL IS RETURNED TO THE SIMULATOR AT LOCATION ERROR . OTHER- 
WISE, THE GROUP * SYMBOL >DEV36G* IS PLACED IN THE SYMBOL TABLE 
AND CONTROL IS RETURNED TO THE SIMULATOR AT LOCATION 1+20. 

THE SYMBOL TABLE HAY CONTAIN A MAXIMUM OF TEN GROUPS f SYMBOL, 
DEV360*. ONCE AN ENTRY IS PLACED IN THE TABLE, IT CANNOT BE RE- 
MOVED. THEREFORE, THE SVC 17 CALLING SEQUENCE EITHER ADDS A NEW 
GROUP * SYMBOL, DEV36G* TO THE TABLE (IF THE TABLE IS NOT FULL), 
OR ASSIGNS A DIFFERENT SYSTEM/360 DEVICE TO A SYMBOL ALREADY IN 
THE TABLE. 



THE FUNCTIONS OF THE SVC 17 CALLING SEQUENCE MAY BE PERFORMED BY 
ENTERING A CONTROL CARD AT THE TIME OF PROGRAM INITIALIZATION. 
THIS CONTROL CARD HAS THE FOLLOWING FORMAT= 



A2300860 
A2300370 
A23008BO 
A2300890 
A230Q9Q0 
A2300910 
A2300920 
A2300930 
A2300940 
A2300950 
A2300960 
A2300970 
A230Q980 
A2300990 
A2301000 
A2301010 
A2301020 
A2301030 
A2301040 
A2301050 
A2301C60 
A2301070 
A23010S0 
A2301090 
A2301100 
A2301110 
A230I120 
A2301I30 
A2301140 
A2301150 
A2301160 
A2301170 
A2301180 
A2301190 
A230120D 
A2301210 
A2301220 
A2301230 
A2301240 
A2301250 
A2301260 
A2301270 
A2301280 
A2301290 
A23Q1300 
A2301310 
A2301320 
A2301330 
A2301340 
A2301350 
A2301360 
A2301370 
A2301380 
A2301390 
A2301400 



/ DEVSUP SYMBOL=X T BDD%TTTT,IOTYPE,DENSITY 

I4HERE TTTT, DDD, SYMBOL, AND IOTYPE DEMOTE THE SAME QUANTITIES 
AS IN THE SVC 17 CALLING SEQUENCE, BUT THAT IOTYPE IS ALWAYS I OR 
0 AND DENSITY IS USED WITH TTTT= 2400 FOR A 7 -TRACK, BCD NODE, 0- 
PERATION. (DENSITY= 200, 556 OR 600k 

THE BLANKS BEFORE AND AFTER f DEVSUP* MUST BE RESPECTED. 

THE SYMBOL TABLE IS CREATED AT CONTROL PROGRAM INITIALIZATION BE- 
FORE THE SIMULATOR IS LOADED . THE CONTENTS OF THE TABLE REMAIN 
UNCHANGED WHEN CONTROL IS TRANSFERRED FROM THE RELOCATING LOADER 
TO THE SIMULATOR. 

-V V V-V-YC 



THE SVC CALLING SEQUENCE FOR A LOGICAL 
FOLLOWING FORM- 



I 

SYMBOL 
COUNT 
BUFFER 
I*l& 



CHOP 

SVC 

DS 

DC 

DC 



9G^9f9t9?9£iWf ?£9f $fr9fr9$9f 9f SWfSf^if^ 

EJECT 



9* 



I/O OPERATION IS OF THE 



0,4 
18 

BC 

FL2W 
A(BUFF) 



ANY INSTRUCTION 



ANY CHARACTER BUT 
THE CHARACTER f l f 



^vw-'vyYvyvvvvvvvvViVVVvyvy vvrvv v \r \r y y v v y v v 



SYMBOL DENOTES THE SAME QUANTITY AS IN THE SVC 17 CALLING SE- 
QUENCE. COUNT CONTAINS THE NUMBER OF BYTES OF DATA TO BE PRO- 
CESSED AND BUFFER CONTAINS THE ADDRESS OF THE INPUT/OUTPUT BUFFER 
FOR THE DEVICE BEING USED. 

THE DATA WILL BE FETCHED FROM OR PLACED IN LOCATIONS 

BUFF+1, BUFF+2, . . .BUFF+X'NN' 

FOR AN OUTPUT OPERATION ON THE 1403 OR 1443, THE CHARACTER IN 
LOCATION BUFFU SPECIFIES THE TYPE OF PRINT COMMAND, AS FOLLOW5= 



WRITE AND SPACE ONE LINE AFTER PRINTING 
WRITE AND SKIP TO CHANNEL 1 AFTER 
PRINTING 



THUS, THE DATA WILL BE FETCHED FROM LOCATIONS 

BUFF*2, BUFF*3, ...BUFF+XW 

FOR AN OUTPUT OPERATION ON THE 2400, IT N&Y BE NECESSARY TO WRITE 
A TAPE MARK (PARTICULARLY AFTER A UNIT EXCEPTION HAS OCCURRED, 
DENOTING THE END OF TAPE). TO WRITE A TAPE MARK, COUNT MUST CON- 



A2301410 

A23G1420 
A2301430 
A2381440 
A2301450 
A23G14G0 
A23GI470 
A230I480 
A23G149Q 
A2301500 
A2301510 
A2301520 
A2301530 
A23G1540 
A2301550 
A23G156Q 
A2301570 
A2301580 
A2301590 
A2301600 
A2301G10 
A2301620 
A2301630 
A2301640 
A2301650 
A23G1660 
A230I670 
A230I680 
A2301690 
A2301700 
A23017I0 
A2301720 
A2301730 
A2301740 
A23Q1750 
A2301760 
A2301770 
A2301780 
A2301790 
A2301600 
A2301810 
A2301820 
A2301830 
A2301840 
A2301850 
A2301860 
A2301870 
A2301880 
A2301890 
A2301900 
A2301910 
A2301920 
A2301930 
A2301940 
A2301950 



* TAIN ONE (NN=1) AND BUFR1 MUST CONTAIN A 7/8 PUNCH (7F). 

* THE INPUT/OUTPUT OPERATION MILL BE PERFORMED USING AN SVC 11 (I/O 

* REQUEST AND WAIT) CALLING SEQUENCE. THE CONTROL PROGRAM MILL 

* CYCLE ON THE SVC 11 CALLING SEQUENCE UNTIL THE REQUEST HAS TERMI- 

* NATED. THE REQUEST HAY BE TERMINATED IN ANY OF THE FOLLOWING 

* HAYS= 

* .../... 



EJECT 



./... 



* IN THE LAST FOUR OF THESE CASES, THE I/O SUPPORT PACKAGE RETURNS 

* CONTROL TO THE SIMULATOR AT LOCATION 14-16. 

EJECT 

* GENERAL REGISTER ASSIGNMENT * 



—A CATASTROPHIC ERROR HAS OCCURRED. CONTROL IS RETURNED 
EITHER FROM THE CONTROL PROGRAM TO THE I/O SUPPORT PACKAGE 
OR FROM THE I/O SUPPORT PACKAGE TO THE SIMULATOR. IN THE 
FIRST CASE, THE STANDARD SEREP INTERFACE IS SET UP. IN THE 
SECOND CASE, A MESSAGE IS ISSUED REQUESTING THAT THE SYSTEM/ 
360 BUMP PROGRAM BE LOADED (A PART OF THE SYSTEM HAS PROBAB- 
LY BEEN OVERWRITTEN) OR THAT THE STANDARD SEREP PROGRAM BE 
LOADED (A MACHINE MALFUNCTION HAS BEEN DETECTED). 

— THE DEVICE 'SYMBOL* IS UNKNOWN TO THE I/O SUPPORT PACKAGE. 
IT HAS NOT BEEN DEFINED BY A CONTROL CARD NOR BY AN SVC 17 
CALLING SEQUENCE. 

THE BYTE AT ADDRESS BUFF IS SET TO THE VALUE X'01'. 

— A DEVICE MALFUNCTION HAS BEEN DETECTED DURING THE EXECUTION 
OF THE I/O REQUEST AND A MESSAGE HAS BEEN ISSUED TO ADVISE 
THE OPERATOR OF THE MALFUNCTION. THE I/O SUPPORT PACKAGE 
HAS RECEIVED A COMMAND TO TERMINATE THE I/O OPERATION. 
THE BYTE AT ADDRESS BUFF IS SET TO THE VALUE X*G2*. 

—A UNIT EXCEPTION CONDITION HAS OCCURRED DURING A READ OR 
HRITE OPERATION ON A MAGNETIC TAPE. A MESSAGE IS ISSUED AND 
CONTROL IS RETURNED TO THE SIMULATOR WITH THE BYTE AT AD- 
DRESS BUFF SET TO THE VALUE X f Q3 f . 

— NONE OF THE ABOVE CONDITIONS HAS OCCURRED, THAT IS, THE I/O 
OPERATION HAS TERMINATED WITH NO EXCEPTIONAL CONDITIONS. 
THE BYTE AT ADDRESS BUFF IS SET TO THE VALUE X'Q7'. 



A2301960 
A2301970 
A2301980 
A230199G 
A2302000 
A2302D10 
A23O202O 
A2302030 
A23Q2040 
A2302050 
A2302060 
A2302070 
A23G20SG 
A23G2G90 
A23G2100 
A230211G 
A2302120 
A23G213G 
A23G2140 
A23G215G 
A23G2160 
A2302170 
A230218G 
A2302190 
A23022GG 
A230221G 
A2302220 
A23G223G 
A230224G 
A23G2250 
A2302260 
A23G2270 
A23G2280 
A2302290 
A23023GG 
A23G2310 
A2302320 
A230233G 
A2302340 
A2302350 
A2302360 
A2302370 
A2302380 
A2302390 
A23G2AG0 
A23G241G 
A2302420 
A230243G 
A23G2440 
A23G245G 
A23G2389 
A23G2470 
A23G248G 
A23G2490 
A23G25G0 





SPACE 




I 

# 


EQU 


1 


X 


EQU 


2 


W0RK2 


EQU 


2 


INTCDE 


EQU 


3 


BYTCNT 


EQU 


3 


BYTE 


EQU 


4 


W0RK4 


EQU 


4 


WORKS 


EQU 


5 


NXTBYT 


EQU 


5 


W0RK6 


EQU 




IOBASE 


EQU 


7 


W0RK7 


EQU 


8 


LINK 


EQU 


9 


LNKMES 


EQU 


10 




SPACE 





ADDRESS OF 1ST BYTE OF SVC 
* CALLING SEQUENCE 

WORKING REGISTER 

INTERRUPTION CODE IN SVC INSTR. 



IRKING REGISTER 



WORKING REGISTER 

BASE REGISTER (LOADED IN CONTROL 

PROGRAM) 
WORKING REGISTER 
RETURN ADDRESS FOR SUBROUTINE 

* CALL 

RETURN ADDRESS FOR SUBROUTINE 

* CALL (WRITE MESSAGE) 



DEFINITION OF DEVICE AND CHANNEL SYMBOLIC STATUS BITS * 



BUSY 

DEVICE END 
UNIT CHECK 
UNIT EXCEPTION 
CHAINING CHECK 





SPACE 




BUSY 


EQU 


X'1G ¥ 


DE 


EQU 


X r 04 f 


UC 


EQU 


X*Q2* 


UE 


EQU 


X'GP 


CHC 


EQU 


X'Ol' 


CBN 


EQU 


x'or 




SPACE 





********* 



* 
* 
* 



* 
* 

&*^***^*************************************^ 



DEFINITION OF SYMBOLIC SENSE BITS 





SPACE 






CR 


EQU 


xw 


COWHAND REJECT 


CMDRJT 


EQU 


xw 




INTREQ 


EQU 


X f 40 f 


INTERVENTION REQUIRED 


BUSOUT 


EQU 


X f 20' 


BUS-OUT CHECK 


EQUCHK 


EQU 


X'lG* 


EQUIPMENT CHECK 


BATCH 


EQU 


X'03' 


DATA CHECK 


DATCHK 


EQU 


xw 


DATA CHECK 


OVERRN 


EQU 


XW 


OVERRUN 


PRTCHK 


EQU 


BUSOUT*EQUCHK 
X*6G* 


* 


ABSTAT 


EQU 


2400 TU - STATUS A AND B 


NOISE 


EQU 


XW 


NOISE 


LOADPT 


EQU 


X'08 1 


LOAD POINT 


FILEPR 


EQU 
SPACE 


X f 02* 


FILE PROTECT 




2 




OSVPSW 


EQU 


XW 


SUPERVISOR CALL OLD PSW 


SVCGR 


EQU 


X f 188 f 


SAVE AREA FOR GENERAL REGISTERS 



A2302510 

A230252G 
A23Q2530 
A2302540 
A2302550 
A23025GG 
A2302570 
A230258Q 
A2302590 
A23G2600 
A2302610 
A2302620 
A2302630 
A23G2b4G 
A2302650 
A2302660 
A230267G 
A2302680 
A23G2690 
A23027GQ 
A2302710 
A230272G 
A23G2730 
A230274Q 
A2302750 
A23Q276G 
A23G277G 
A230278G 
A230279G 
A23G28GG 
A2302810 
A230Z820 
A23G283G 
A23G284G 
A230285G 
A23028S0 
A2302370 
A2302880 
A2302890 
A230290G 
A230291G 
A230292G 
A230293G 
A2302940 
A230295G 
A2302960 
A2302970 
A23G298G 
A2302990 
A230300G 
A230301G 
A23G3020 
A2303030 
A23Q3040 
A23G305G 



* * 1-7 AFTER SVC INTERRUPTION A23Q3G&Q 

* * (AREA LOCATED IN CONTR . FROG,) A2303070 
DEVATT EQU 24 DISPLACEMENT RELATIVE TO THE A2303030 

* * ADDRESS OF THE 1052 UCB A2303090 

* * LOCATED IN CONTROL PROGRAM A2303100 

* * (USED ONLY HITH THIS DEVICE) A2303110 
SPACE 2 A2303120 

* * A2303140 

* ENTRY ROUTINE * A2303150 

* * A2303160 

* THIS ROUTINE IS ENTERED FROH THE CONTROL PROGRAM EVERY TIME A * A230317D 

* LOGICAL I/O REQUEST IS SUBMITTED. IT IS THE FIRST ROUTINE EXECU- * A230318Q 

* TED. THE ENTRY POINT IS THE ASSEMBLY LOCATION, IOPACK, SPECIFIED * A2303190 

* BY THE OPERAND OF THE START STATEMENT. * A230320Q 

* * A2303210 

SPACE A2303230 

MVC CALLGR(28),SVCGR SAVE G.R. 1-10 A2303240 

SIM 6,10,CALLGR+28 * A2303250 

MVC CALPSf4(8),OSVPS!4 SAVE SVC OLD PSH A2303260 

ST I,CALLSQ SAVE ADDR. OF SVC CALLING SEQ. A2303270 

CH INTCDE,DEC34 SVC 17 CALL (DEVICE ASSIGNMENT) A2303280 

BC 8,SETSYM YES, BRANCH A23G3290 

01 I0SM,X ¥ Q1* NO>REQUEST FOR I/O OPERATION -SET A23C3300 

MVC MESLNK(4),12(I) I/O OP. SNITCH ON AND SAVE ADDR. A2303310 

* OF I/O BUFFER. A2303320 

* A2303330 

* LOOK-UP SYMBOL IN SYMBOL TABLE (SYMTAB). A23G3340 

* INITIALIZE TABLE LOOK-UP A2303350 
SETSYM LA NORK6,10 MAX. NUMBER OF ELEMENTS IN TABLE A230336Q 

L H0RK7 > TABBEG START AND CURRENT ADDRESSES OF A2303370 

L M0RK2,TABEND * SYMTAB . A23G3380 

TABTRM CR N0RK7,N0RK2 IS TABLE EXHAUSTED A230339D 

BC 8, FILL YES>BRANCH- NO, A2303400 

CLC 0(8,140RK7),2(I) ARE SYMBOLS IDENTICAL A23G3410 

BC 8,REPTAB YES, BRANCH- NO, INCREMENT START A2303A20 

LA K0RK7,ZQ(W0RK7> * ADDRESS OF SYMTAB AMD EXAMINE A2303430 

BCT N0RK6, TABTRM * NEXT ELEMENT. A23G3440 

TABERR MVI TAB5M,X f 01 ¥ SYMBOL NOT IN TABLE AND TABLE A2303450 

* EXHAUSTED OR SVC 18 NITH UNKNOWN A2303460 
BC 15, ERROR SYMBOL, A2303470 

* A23Q3480 

* MAKE A NEW ENTRY IN THE TABLE. A2303490 

* A2303500 
FILL TM IOSH,X f Ql f REQUEST FOR I/O OPERATION- YES, A23C3510 

BC 1, TABERR * ERROR (SYMBOL UNKNONN), BRANCH A2303520 

FILLC LA NORK2,20(HORK2) UPDATE CURRENT ADDR. OF SYMTAB A2303530 

BC 15,FILLA GO TO EXAMINE TYPES OF DEVICE A2303540 

* * AND I/O OPERATION. A23Q3550 
REPTAB TM IOSN,X f Gl f REQUEST FOR I/O OPERATION A2303560 

BC 1>STRTI0 YES, BRANCH TO START OPERATION A2303570 

CLC 10(7,I),ZEROS IS REQUEST FOR DEVICE ... A2303580 

BC 7,FILLD ...CHARACTERISTICS. NO, BRANCH A2303590 

MVC 1Q(7,I),8(N0RK7) YES SEND ADDRESS AND TYPE OF... A2303600 



FILLD 
* LOOK-UP 



BC 
L 



15, RETURN 
HORK2,TABEND 



...DEVICE TO CALLER 

RELOAD CURRENT ADDR, OF SYMTAB 



DEVICE IN DEVICE LIST (DEVID). 



FILLA 
FILLB 



REPTB1 



VERIFY 



RETURN 



ERRFRG 



ERRCP 
ERROR 



LA WORJtt, DEVID 

CLC 0(5,NORK4),12(I) 

BC 8,REPTB1 

LA HORK4,8(HORK4) 

CLI OOK3RK4),XW 

BC 7, FILLB 



CLC TP2400(4),12(I) 

BC 7,ERRPRG 

TH 16(I),X*E0' 

BC 5,ERRPRG 

TH 16(I),X*0F f 

BC 8,ERRPRG 

LA WORK4,TP2400 

HVC VERIFY(6),10(I) 

CHOP 0,4 

SVC 0 

DC X'GQOO' 

DC C* f 

DC XW 

DC AL3C ERRCP) 

HVC G(15,NORK7),2CI) 

HVC 17 ( 3 ,HORK7 ) , 5 (NORK4 ) 

ST N0RK2,TABEND 

LA 1,20(1) 

ST I,CALPSH+4 

LM 1,10,CALLGR 

CHOP 2,4 

SVC 3 

DC A(CALPSW) 



HVI 
BC 
HVI 
TH 
BC 
HVC 
L 
BC 

EJECT 



TABSH,X r Q2 r 
15, ERROR 
TABSH,X f 03 f 
IOSH,X'01 f 
1,EXCRET 
16(1,1), TABSH 
1,16(1) 
15, RETURNS 



START ADDR. OF DEVID LIST 

IS TYPE IN THIS LIST 

YES, BRANCH (FOR A LAST VERIF.) 

NO- ADDR. OF NEXT LIST ELEMENT 

IS TABLE EXHAUSTED 

NO, GO TO EXAMINE NEXT ELEMENT 

YES, EXAMINE DEVICE TYPE AND 

BYTE IN LOCATION IOTYPE(I) IN 

SVC 17 CALLING SEQUENCE. 

2400 MAGNETIC TAPE 

NO, INCORRECT DEV. OR OPERATION 

YES, IS IT A 7TRACK MODE OPERAT. 

NO, ERROR. 

YES, IS DENSITY SPECIFIED 
NO, ERROR. 

YES, SVC 17 OK. LOAD ADDRESS 

* OF ACCORDING LIST ELEMENT. 
SET-UP VERIFY SEQUENCE 

DOES AN UCB EXIST FOR THE 

* DEVICE IN THE CONTROL PROG. 

* (DEVICE ADDRESS) 

* (DEVICE TYPE) 

* (SPECIAL FEATURES- UNUSED) 
NO, RETURN TO ERROR 

YES, PLACE HEN ELEMENT IN SYMTAB 

UPDATE CURRENT ADDR. OF SYMTAB 

1*20 - RETURN TO SVC 17 CALL 
RETURN ADDRESS TO SVC OLD PSH 
RESTORE G.R. 1-10 

RETURN TO CALLER 



PROGRAMMING ERROR- INVALID PARA- 

* METERS IN SVC 17 SEQUENCE. 
NO UCB IN CONTR.PROG. FOR THE 

* DEVICE. IS SVC 18 CALL 
YES, BRANCH. 

NO, SET ERROR INDICATION IN BYTE 

* AT LOCATION BUFF AND RETURN 

* TO CALLER, (1)4-16. 



I/O REQUEST SEQUENCE INITIALIZATION ROUTINE 
NAME= STRTIO 



A23G3610 
A2303620 
A2303630 
A2383640 
A230365G 
A23Q3660 
A2303670 
A23G3680 
A2303690 
A2303700 
A2303710 
A2303720 
A2303730 
A2303740 
A2303750 
A2303760 
A2303770 
A2303780 
A2303790 
A23038Q0 
A2303810 
A2303820 
A2303830 
A2303840 
A2303850 
A23G3S60 
A2303870 
A2303880 
A2303890 
A2303900 
A2303910 
A2303920 
A2303930 
A2303940 
A2303950 
A2303960 
A2303970 
A2303980 
A230399D 
A23Q4000 
A2304010 
A230402G 
A2304030 
A23G4040 
A2304050 
A23G4060 
A2304070 
A2304080 
A2304090 
A2304100 
A2304110 
A2304120 
A2304130 
A2304I40 
A2304150 



* THIS ROUTINE PERFORMS CERTAIN INITIALIZATION STEPS FOR ALL I/O * 

* OPERATIONS . * 

* THIS ROUTINE HAS TWO ENTRY POINTS * 

* STRTIO ENTERED FROH THE ENTRY ROUTINE WHEN AN I/O * 

* OPERATION IS BEING INITIALIZED. * 

* RETSIO ENTERED FROM THE SPECIFIC I/O ROUTINES FOR * 
*e RETRY OPERATIONS. *t 

* THIS ROUTINE EXITS TO THE SPECIFIC I/O ROUTINES. * 

yyvv ,v.,v : 



STRTIO 



RETSIO 



SPACE 
XC 
L 

LA 
ST 

HVC 
HVC 
HVC 
L 

BALR 
SPACE 

***** >e*'Srje - 



RETRSN(3),RETRSN 
LINK,MESLNK 
LINK,1(LINK) 
LINK.CCHPR 
CCUPR+6(2),10(I) 
CALL+2(2),8(W0RK7) 
CALL*5(3),ACCMPR 
W0RK2,16(W0RK7) 
LINK,N0RK2 



RESET ALL SNITCHES FOR I/O OPE. 
SET UP IN CHANNEL COMMAND WORD.. 

* ADDRESS OF DATA (=BUFF+1) AND 

* BYTE COUNT 

PLACE IN SVC 11 SEQ. ADDRESSES 

* OF DEVICE AND CCW. 

BRANCH TO SPECIFIC I/O ROUTINE 



* 

***W»**********Tr»c»« 

SPACE 



I/O REQUEST EXITS ROUTINE 



u vr y xr y ,v,v y V y, y ,y V ,y ,y ,y v y ,y y ,y ,y ,y y y y y ,y y, vr y y y y ,y y y 
W>t Jt Tt*9* J* « W SKI H It K jW jTWT <W WtC TRni>r^^W:W^>C ^^^TWiW?!! f??SH*r 



NAHE= NRHRET 

THIS ROUTINE IS ENTERED FROH THE SPECIFIC I/O ROUTINES AT THE LO- 
CATIONS SPECIFIED BY SYMBOLIC NAMES (NRHRET OR EXCRET) AND EXITS 
TO LOCATION RETURN*** IN ENTRY ROUTINE. 

THIS ROUTINE SETS THE BYTE AT ADDRESS BUFF, IN CALLING PROGRAM , 
TO SOME HON -ZERO VALUE. SEE ABOVE, PROGRAM FUNCTIONS. 



NRHRET 
EXCRET 



MVI 
L 

HVC 
LA 
MVI 
BC 

EJECT 



TABSW,X f 07 f 
LINK ,MESLNK 
0(1, LINK), TABSW 
1.16(1) 
IOSW.XW 
15, RETURNS 



NORMAL RETURN- I/O OPERAT. OK 
EXCEPTIONAL RETURN- SET BYTE IN 
* LOCATION BUFF ACCORDINGLY. 
RETURN ADDRESS 
RESET INPUT/OUTPUT SNITCH 



I/O REQUEST ROUTINE 



NAME= CALLA 



THIS ROUTINE INITIATES THE I/O OPERATIONS BY ISSUYING AN I/O RE- 
QUEST AND WAIT CALL (SVC 11). THE ROUTINE THEN ANALYZES THE STA- 
TUS SET BY THE CONTROL PROGRAM AND PERFORMS A SERIES OF CHANNEL 
STATUS AND SENSE BYTES TESTS. 

THE ROUTINE IS ENTERED FROM THE SPECIFIC I/O ROUTINES AND EXITS 
TO VARIOUS LOCATIONS ACCORDING TO THE CONDITIONS FOUND. 



A230416D 
A2304170 
A23G4180 
A2304190 
A230420G 
A230421G 
A2304220 
A23G4230 
A23C4240 
A23G4250 
A23G426G 
A23Q4270 
A2304280 
A23Q4290 
A2304300 
A2304310 
A2304320 
A23Q4330 
A230434Q 
A23G435Q 
A23G436Q 
A23G4370 
A230438G 
A23G4390 
A23044GG 
A23G441Q 
A2304420 
A23G4430 
A23G444Q 
A23G4450 
A230446G 
A2304470 
A23G4480 
A2304490 
A23Q45G0 
A230451Q 
A23G452Q 
A2304530 
A23G454G 
A230455Q 
A230456Q 
A2304570 
A230458G 
A2304590 
A23046G0 
A23Q4610 
A2304620 
A2304630 
A23G4640 
A2304650 
A23Q4660 
A230467Q 
A2304680 
A23C4690 
A2304700 



CALLA 



CALL 



ERRPR 
C5WPR 



SQCALL 



CCHFR 
ACCHPR 



SPACE 

5TM 

LH 

SVC 

CHOP 

SVC 

DC 

DC 

DC 

DS 

BC 

SVC 

ST 

BALR 

STM 

LH 

HVC 

TH 

BC 

TH 

BC 

CLI 

BC 

NC 

BC 

NC 

BC 

BCR 

CCH 

DC 

EJECT 



1,10,TEMPGR 
1,1G,CALLGR 
9 

4,6 
11 

X'OOOG' 
A(0) 
A(0) 
D 

0. 0 
8 

IOBASE, 0 
IOBASE,0 

1,10. CALLGR-SQCALL( IOBASE ) 
1,10, TEMPGR-SQCALL ( IOBASE ) 
CALLGR*24(4),0 
CSHPR+4,BU5Y 

1, CALLA 
ERRPR >X f 02 f 
1,PGRACT 
ERRPR >X f ll f 
B,SRPACT 

INVDEV(1),ERRPR+1 
4,SRPACT 

INVCBN<1),CSNPR*5 
4,SRPACT 
15, LINK 

XW,*,X'00M 
ALS(CCHPR) 



CALL WRITE ROUTINE FOR I/O PACKAGE MESSAGES 



SAVE I/O PACKAGE REGISTERS 
RESTORE CALLING REGISTERS 
ENABLE I/O AND EXTERN . INTERRUPTS 
% 

I/O REQUEST AND RAIT 

* DEVICE ADDRESS 

* CtM ADDRESS 

* ERROR TYPE AND SENSE BYTES (3) 

* CSH 
NOP, 

DISABLE I/O AND EXT. INTERRUPTS 
SAVE CONTENTS OF G.R. IOBASE 
RESTORE I/O SUPPORT PACKAGE.. 
..REGISTERS AND SAVE... 
..CALLING REGISTERS 
REPLACE IOBASE 
IS BUSY CONDITION PRESENT 
YES- CYCLE QH SVC 11 CALL 
NO, IS ERRTYP= 02 OR 03 
YES-CALL DUMP 

NO, IS DEVICE NOT OPERATIONAL 
YES- CALL SEREP 
NO, IS ANY INVALID SENSE BITS 
YES- CALL SEREP 

NO, IS ANY INVALID CHANNEL BITS 
YES-CALL SEREP 
NO, NORMAL RETURN TO CALLER 

Cm USED TO PERFORM I/O OPERAT. 

* (NO CHAINING, SLI OFF) 

X 

¥r 



* THIS ROUTINE IS USED TO SEND THE MESSAGES PECULIAR TO THE I/O 

* SUPPORT PACKAGE PROGRAM. 

* THE ROUTINE HAS FOUR ENTRY POINTS^ * 

* 3KFACT USED TO SEND MESSAGE 'END OF FILE'. CONTROL HILL * 

* BE RETURNED TO THE CALLING PROGRAM. * 

* PGRACT USED TO SEND MESSAGE * PROGRAM ERROR" . AFTER PRIN- * 

* THE WAIT STATE IS ENTERED. * 

* SRPACT USED TO SEND MESSAGE "LOAD SEREP PROGRAM* . AFTER * 

* PRINTING A * SET-UP SEREP INTERFACE* REQUEST IS * 

* SUBMITTED TO THE CONTROL PROGRAM. * 

* HEADM5 USED TO SEND ANY I/O PACKAGE MESSAGE. * 

* THE MESSAGES ARE PRINTED IN TWO OR THREE TIMES= * 

* 1. MESSAGE CODE, SEQUENTIAL NUMBER, DEVICE ADDRESS. * 

* 2. TEXT OF MESSAGE. * 

* 3. COfffENT, IF NEED BE. * 



A230471G 
A23G4720 
A2304730 
A2304740 
A2304750 
A23G4760 
A2304770 
A23G478G 
A2304790 
A23Q48Q0 
A23048IO 
A2304S20 
A23G4830 
A23G4840 
A2304850 
A230486G 
A2304B70 
A2304880 
A23G489G 
A2304900 
A2304910 
A23G4920 
A2304930 
A23G4940 
A2304950 
A23Q4960 
A2304970 
A23Q498G 
A2304990 
A23050GQ 
A23G5010 
A2305G20 
A2305030 
A2305G40 
A23G5050 
A23050G0 
A23G5070 
A2305G8G 
A23G5G90 
A23G51G0 
A2305110 
A23G5120 
A23G5130 
A230514G 
A23G5150 
A23G5160 
A2305170 
A23G5180 
A23G5190 
A23052G0 
A2305210 
A230522G 
A23G5230 
A23G5240 
A2305250 



INFACT 


LA 


WORK2,UEMES 




HVI 


HESACT >X f GO f 




DHL 


LN^ncb ,ntAUnb 


INFCT1 


HVI 


TABSW,X f G3 f 




BC 


15,EXCRET 


PGRACT 


LA 


WORK2,PGRMES 




HVI 


HESACT, X f 00* 




BAL 


LMHE5,HEABMS 




BC 


15 ,WTCMDR 


SRPACT 


LA 


N0RK2,CATMES 




nvi 


ncaftL l)A UU 




BAL 


LNKMES,HEADM5 




CHOP 


2,4 




SVC 


7 


SEREP 


BC 


X f 3F* 




DC 


AL3CCALL) 


HEADH5 


hvc 


HESID(4),0(WORK2) 




KVC 


NUMBER(3),4(WORK2) 




CHOP 


0,4 




BAL 


LINK,CONSLE 




BC 


FLl'10* 




BC 


AL3( HEADER) 




BAL 


LINK,CHSL 


HESID 


BC 


FLl f 0 f 




BC 


AL3C0) 




BAL 


LINK,CNSL 


HESACT 


DC 


FL1 T 0* 




BC 


AL3(0) 




BAL 


LINK,CN5L 




DC 


X f 00 f 




EJECT 





* 



PREPARE HESSAGE 'END OF FILE*, 

* NO OPERATOR ANSWER REQUESTED, 
GO TO CALL WRITE SEQUENCE. 

WRIT IMG COHPLETED . SET T EOF-EOT f 

* INDICATION IN BYTE AT LOCATION 

* BUFF AND RETURN TO CALLER. 
PREPARE HESSAGE * PROGRAM ERROR*, 

* NO OPERATOR ANSWER REQUESTED. 
GO TO CALL WRITE SEQUENCE. 
WRITING COHPLETED. GO TO ENTER 

* THE WAIT STATE. 

PREPARE HESSAGE 'LOAD SEREP f , 

* NO OPERATOR ANSWER REQUESTED. 
GO TO CALL WRITE SEQUENCE 

SET-UP SEREP INTERFACE 

* TYPE OF I/O FAILURE 

* ADDR. OF SVC 11. 

SET UP SEQUENCE TO WRITE TEXT 

* PART OF HESSAGE. 

SET SEQUENCE NUMBER OF HESSAGE 

* IN CODE PART. 

CALL ROUTINE TO WRITE HESSAGE 

* CODE AND DEVICE ADDRESS. 

CALL ROUTINE TO WRITE TEXT OF 

* HESSAGE. 

CALL ROUTINE TO WRITE TEXT SPE- 

* CIFYING ACTION TO BE TAKEN, IF 

* NEED BE. 

END OF WRITING. RETURN TO CALLER 



WRITE I/O SUPPORT PACKAGE MESSAGES ROUTINE 
NAHE= CONSLE 

THIS ROUTINE WRITES MESSAGES -FROM I/O PACKAGE PROGRAM OR CALLING 
PROGRAM- ON THE 1052 PRINTER KEYBOARD. IT INITIATES THE OPERATION 
BY ISSUYING AN 'SVC 4* CALL. IT, THEN, ANALYZES THE STATUS SET BY 
THE CONTROL PROGRAM AND RETURNS CONTROL TO THE I/O PACKAGE CAL- 
LING ROUTINE. 

THIS ROUTINE IS ENTERED AT LOCATION. 

TO WRITE HESSAGE CODE AND SEQUENTIAL NUMBER, AND 
DEVICE ADDRESS. 

TO WRITE HESSAGE TEXT AND COMMENT (IF NEED BE). 
THESE TWO ENTRIES ARE ONLY USED FOR I/O PACKAGE 
MESSAGES. 

TO WRITE THE CALLING PROGRAM MESSAGES. 



CONSLE 
CNSL 



CNSLB 



A230526G 
A2305270 
A2305280 
A2305290 
A2305300 
A2305310 
A2305320 
A2305330 
A2305340 
A2305350 
A2305360 
A2305370 
A23053S0 
A2305390 
A2305400 
A2305410 
A2305420 
A2305430 
A2305440 
A2305450 
A2305460 
A2305470 
A2305480 
A2305490 
A23G5500 
A2305510 
A2305520 
A23G5530 
A2305540 
A2305550 
A23G5560 
A2305570 
A23G5580 
A2305590 
A23Q5600 
A2305610 
A23G5620 
A2305630 
A2305640 
A23C5650 
A2305660 
A2305670 
A2305680 
A2305690 
A23G57G0 
A2305710 
A2305720 
A23Q5730 
A23G5740 
A23 05750 
A2305760 
A2305770 
A230578D 
A2305790 
A23D58G0 





SPACE 






CONSLE 


LH 


X,B(W0RK7) 


CONVERT DEVICE ADDRESS TO HEXA- 




LA 


BYTE,DVADDR 


* DECIMAL AND STORE RESULT IN 




BAL 


W0RK6,CVRTM 


* HEADER MESSAGE. 




DC 


H*3 f 


* (NUMBER OF BYTES). 


CNSL 


CLI 


G(LINK),X f Q0 T 


IS MESSAGE FULLY WRITTEN 




BCR 


8,LNKNES 

MESSCT(4),0(LINK) 


YES-RETURN TO CALLER 


CNSLB 


HVC 


NO, WRITE NEXT PART 




cnop 


2,4 






SVC 


4 


WRITE MESSAGE 


HESSCT 


DC 


X'GO' 


* BYTE COUNT 




DC 


AL3(0) 


* MESSAGE ADDRESS 




L 


BYTE, HESSCT 






TH 


0(BYTE),X f 07» 


IS MESSAGE WRITTEN 




BC 


5,4(LINK) 


YES-RETURN TO CALLER 








NO, WAIT END OF WRITING 


CON SLA 


SIM 


1,10,TEMPGR 


SAVE G.R. 1-10 




LH 


1,10,CALLGR 


RESTORE CALLING REGISTERS 




SVC 


19 


WAIT FOR END OF WRITE OPERATION 


CSLRET 


SVC 


8 


DISABLE I/O, EXT. INTERRUPTS 




ST 


IOBASE,0 
IOBASE, 0 


SAVE CONTENTS OF G.R. IOBASE 




BALR 


* SAVE CALLING G.R. 1-10 AND 


CONSLB 


SIM 


1,10, CALLGR-CON5LB ( IOBASE ) * RESTORE I/O PACKAGE 




LH 


1 > 10 > TEMPGR-CONSLB ( IOBASE ) * G»R. 1-10 




HVC 


CALLGR*24(4),0 






BC 


15,HESSCT*4 


GO AND SEE IF MESSAGE IS WRITTEN 




EJECT 







* INPUT COMMANDS PROCESSING ROUTINE 

* NAME= SWEXT 

THIS ROUTINE IS ENTERED, FROM THE SPECIFIC I/O ROUTINES, WHEN THE 
OPERATOR MUST TYPE ONE COMMAND ON THE 1052 PRINTER-KEYBOARD TO 
RESTART AN I/O OPERATION OR TO INDICATE THAT THE DEVICE CAN NO 
LONGER BE USED. 

THE ROUTINE LINKS TO THE READ COMMAND ROUTINE (TYPRD) AND ANALY- 
ZES THE COMMAND READ. IT EXITS TO A SPECIFIC I/O ROUTINE (RE- 
START) OR THE CALLING PROGRAM (STOP). 



SWEXT 



SWEXT1 



SPACE 






LA 


I,MESOP-10 


SIMULATE SVC 18 CALL TO READ 


BAL 


LINK, TYPRD 


* OPERATOR'S COMMAND FROM 1052. 


L 


I,CALLSQ 


RESTORE I (ADDR. OF USER'S CALL) 


OC 


BUFMESH(S), BLANK 


REPLACE LOWER BY UPPER CASE 


CLC 


BUFHES*1(4), START 


IS START ANSWER 


BCR 


8,LNKMES 


YES, GO TO RETRY I/O OPERATION 


CLC 


BUFMESU(4),ST0P 


IS STOP ANSWER 


BC 


8,RETCAL 


YES, BRANCH 


am 


0,4 


NO, ANSWER NOT RECOGNIZED. CALL 


BAL 


LINK,CNSLB 


* WRITE ROUTINE TO REQUEST A 


DC 


FLl f 19* 


* NEW ANSWER 


DC 


AL3(ASSIGN) 





A2305810 
A2305820 
A2305830 
A2305840 
A2305850 
A23058G0 
A2305870 
A2305880 
A23G5S9Q 
A2305900 
A2305910 
A2305920 
A2305930 
A2305940 
A2305950 
A2305960 
A2305970 
A2305980 
A2305990 
A2306000 
A230G010 
A230G020 
A230G030 
A230604G 
A230G050 
A2306060 
A23G6070 
A2306080 
A2306090 
A230G100 
A23QG110 
A2306120 
A23Q6130 
A23G6140 
A2306150 
A2306160 
A2306170 
A2306180 
A2306190 
A2306200 
A2306210 
A23G6220 
A2306230 
A23G6240 
A2306250 
A23G6260 
A2306270 
A2306280 
A2306290 
A2306300 
A2306310 
A23G&32G 
A2306330 
A23Q6340 
A23Q&350 



RETCAL 



BC 
MVI 
XC 
BC 



15,SWEXT 
TABSW,X'02 f 
RETR5W(3),RETRSW 
15,EXCRET 



GO TO ANALYZE IT. 
RETURN TO CALLER WITH ERROR 

* INDICATION *02' = DEVICE 

* UNSERVICEABLE (OPERATOR 

* DECISION). 

SPACE 2 

BINARY TO HEXADECIMAL CONVERSION ROUTINE * 

(X) = BINARY DATA TO BE CONVERTED (RIGHT JUSTIFIED) * 
(BYTE) = ACDESTINATION FIELD) * 
(N0RK6)= A (BYTE COUNT) * 



CVRTM 
CNVRTA 



SPACE 
LH 
AR 
LR 

BCTR 
SRL 
N 
IC 
STC 
BCT 
BC 
EJECT 



BYTCNT,Q(WORK6) 

BYTE,BYTCNT 

NXTBYT, X 

BYTE,0 

X,4 

NXTBYT, B28T31 
NXTBYT,HEXTABCNXTBYT) 
NXTBYT, 0(BYTE> 
BY TCNT, CNVRTA 
15,2(W0RK6) 



* NUMBER OF 4-BIT DIGITS 

NEXT HEX CHAR. TO NXTBYT 

POSITION X FOR NEXT CHAR. 
CONVERT NXTBYT 

PLACE IN MESSAGE 
BYTCNT-1 TO BY TCNT 
RETURN TO CALLER 



MESSAGES ISSUED FROM I/O PACKAGE PROGRAM 

THE FOLLOWING BLOCK CONTAINS THE MESSAGES WHICH THE I/O SUPPORT 
PACKAGE MAY PRINT AT ANY TIME IT USES A SYSTEM/360 DEVICE TO PER- 
FORM AN I/O OPERATION. 

THE SPECIFICATION OF A PARTICULAR MESSAGE FORMS A SET GROUP ON 
THE MODEL OF MESSAGE 20. THESE GROUPS ARE COLLECTED IN ONE BLOCK. 
THE TWO LETTERS IDENTIFYING THE SIMULATOR SYSTEM ARE AT THE BE- 
G INNING OF THE BLOCK AND APPLY TO ALL THE MESSAGES. 
THE COMMENTS FORM ONE GROUP AT THE END OF THE MESSAGE BLOCK. 
THE BUFFER USED TO STORE OPERATOR'S COMMAND AND THE COMMANDS RE- 
COGNIZED FORM A LAST GROUP. 



HEADER 
NUMBER 
DVADDR 

PGRMES 



PGRCHK 



SPACE 
DC 
DC 
DC 

DC 
DC 
DC 
DC 
DC 
DC 



C* A2 f 
C f T 
C T f 

FLl'24' 

AL3( PGRCHK) 
C f 20W* 

C f PROGRAM ERROR,* 
C f LOAD DUMP* 
X*15' 



MESSAGE CODE (COMPONENT, PHASE) 

SEQUENTIAL NUMBER 
DEVICE ADDRESS (HEXADECIMAL) 



MESSAGE 20- 



TEXT LENGTH 
TEXT ADDRESS 
SEQUENTIAL NUMBER 
TEXT 



A230&360 
A230637G 
A23G6380 
A23G6390 
A2306400 
A230641G 
A23Q642G 
A2306430 
A23G644G 
A23GG450 
A23G64&0 
A23Q647Q 
A23G6480 
A23G6490 
A2306500 
A2306510 
A2306520 
A23G6530 
A2306540 
A2306550 
A2306560 
A23G6570 
A2306S80 
A2306590 
A2306600 
A2306610 
A2306620 
A230G630 
A2306G40 
A23G&650 
A2306660 
A23G6670 
A230GGB0 
A2306690 
A2306700 
A23067IG 
A2306720 
A2306730 
A23G&74G 
A230&750 
A2306760 
A23G6770 
A23G6780 
A2306790 
A2306800 
A230G810 
A23G6G20 
A23G6830 
A23G6840 
A2306850 
A2306860 
A2306870 
A230&880 
A23GG890 
A2306900 



CATME5 


DC 


FL1*29* 


MESSAGE 21. 


A2306910 




DC 


AL3( CATAS) 




A230692G 




DC 


C*21H* 


* 


A230&93Q 


CATAS 


DC 


C* UNRECOVERABLE E f 




A230&940 




DC 


C*RROR* 


* 


A23G6950 




DC 


X*15* 




A23G&9&0 


UEHE5 


DC 


FL1*12* 


MESSAGE 22. 


A2306970 




DC 


AL3(UEXCP) 




A2306980 




DC 


C22I* 




A2306990 


UEXCP 


DC 


C* END OF FILE* 


* 


A2307000 




DC 


X*15* 


* 


A23070I0 


E0THE5 


DC 


FL1*12* 


MESSAGE 23. 


A230702D 




DC 


AL3( ENDTPE) 




A230703D 




DC 


C*23I* 




A2307040 


ENDTPE 


DC 


C f END OF TAPE' 




A2307050 




DC 


X*15* 




A2307060 


INTMES 


DC 


FL1 T 22* 


MESSAGE 24. 


A230707D 




DC 


AL3( INTRQ) 
C*24B* 




A230708Q 




DC 




A230709D 


INTRQ 


DC 


C* INTERVENTION ' 




A2307100 




DC 


C* REQUIRED* 




A2307110 




DC 


X*15* 




A2307120 


BATHES 


DC 


FLl'll* 


MESSAGE 25. 


A2307130 




DC 


AL3CBATC) 




A23Q7140 




DC 


C*25D* 




A2307150 


DATC 


DC 


C* DATA CHECK* 




A230716Q 




DC 


X*15* 




A2307170 


EQCMES 


DC 


FLl'16* 


MESSAGE 26. 


A230718D 




DC 


AL3( EQCHCK) 
C*26D* 




A2307190 




DC 




A2307200 


EQCHCK 


DC 


C* EQUIPMENT CHECK* 
X*15 f 




A2307210 




DC 




A2307220 


BOCHES 


DC 


FL1*14* 


MESSAGE 27. 


A2307230 




DC 


AL3( BOCHCK) 




A2307240 




DC 


C*27D* 




A23D7250 


BOCHCK 


DC 


C* BUS OUT CHECK* 




A23072G0 




DC 


X*I5* 




A2307270 


OVRHE5 


DC 


FL1*8* 


MESSAGE 25. 


A230728D 




DC 


AL3(OVRUN) 




A2307290 




DC 


C*28D* 




A23073D0 


OVRUN 


DC 


C* OVERRUN* 




A230731Q 




DC 


X*15* 




A2307320 


CHNHES 


DC 


FLl'15* 


MESSAGE 29. 


A2307330 




DC 


AL3CCHNCHK) 




A2307340 




DC 


C*29B* 




A2307350 


CHHCHK 


DC 


C* CHAINING CHECK* 




A23073b0 




DC 


X*15* 




A2307370 


* 








A2307380 


OFACT1 


DC 


FL1'19* 


COMMENT 1. SPECIFY CCfrfriANDS (SEE A2307390 




DC 


AL3CASSIGN) 


* BELOW). 


A2307400 


ACTHE5 


DC 


FLl'60* 


COMMENT 2. SPECIFY ACTION TO BE 


A23074I0 




DC 


AL3( ACTOP) 


* TAKEN AND COMMANDS TO TYPE TO 


A23G742Q 


ACTOP 


DC 


C* UNLOAD HOPPER,* 


* RETRY I/O OFERATION OR TO DE- 


A2307430 




DC 


C* RELOAD LAST * 


* CLARE THE DEVICE UNSERVICEABLE A23G7440 


CRDNUM 


DC 


C f CARD(S) AND* 




A2307450 



ASSIGN 



BUFMES 

HESOP 

START 
STOP 



DC C f TYPE * * 
DC C START OR STOP' * 
DC X'15' * 



INPUT BUFFER (FOR OPERATOR 

* COMMANDS) 

* LENGTH AND ADDRESS OF 

* BUFFER. 

START COMMAND (RETRY I/O OPER.) 
STOP - (DV. UNSERVICEABLE) 



DS 6C 
CHOP 2,4 
DC H'5' 
DC A(BUFHES) 
DC C'STAR' 
DC C'STOP' 
EJECT 

K*XXX**XX*XXXX#XXX*X*XXXXXX*XXXX^ 

WRITE USER'S HESSAGES ROUTINE 



NAKE= TYPWRT 



THIS ROUTINE IS ENTERED FROH THE I/O REQUEST INITIALIZATION ROU- 
TINE TO SEND USER'S HESSAGES ON THE 1052 PRINTER-KEYBOARD . THE 
OPERATIONS ARE AS FOLLOW 

1. THE ROUTINE PERFORMS CERTAIN INITIALIZING STEPS. 

2. THE ROUTINE BRANCHES TO THE WRITE I/O PACKAGE HESSAGES ROUTI- 
NE WHICH PERFORHS THE WRITE OPERATION AND RETURNS CONTROL TO 
THE ROUTINE. 

3. THE ROUTINE THEN ANALYZES THE STATUS SET BY THE CONTROL PRO- 
GRAM AND EXITS TO THE I/O REQUEST EXITS ROUTINE (MESSAGE WRITTEN) 
OR TO AN ERROR WAIT. 



vv\>v'vvtvvvrvvvvv vvvv,vv«vrvvvv\tvvvvvvvv\fvvvvvvvv«« v yr .y y ,y ,y ,y V wug y, ,y vt \> vr y V v.- w vf v vf 



TYPWRT 



CNSMRT 



SPACE 




HVC 


CN5NRT+4(1),11(I) 


HVC 


CN5WRT+5(3),13(I) 


CHOP 


CM 


BAL 


LINK,CNSLB 


DC 


X'OO' 


DC 


AL3(0) 


L 


LINK,0(LINK) 


TM 


0(LINK),X'07' 


BC 


12>PGRACT 


BC 


I5,NRMRET 


SPACE 2 



SET UP NEXT CALLING SEQUENCE 

CALL WRITE MESSAGE ROUTINE 

* MESSAGE LENGTH 

* BUFFER ADDRESS 

RETURN. DOES THE 1ST BYTE OF 

* BUFFER CONTAIN '07' 

NO, PROGRAMMING ERROR, BRANCH 
YES, WRITING OK, RETURN TO CALLER 



X 
X 

X 
X 
X 

X 

X 



READ USER'S COMMANDS ROUTINE 
NAHE= TYPRD 

THIS ROUTINE IS ENTERED FROM THE I/O REQUEST INITIALIZATION ROU- 
TINE TO READ THE 1052 INPUT COMMAND AIMED TO THE CALLING PROGRAM. 
THE OPERATIONS ARE AS FOLLOW- 

1. THE ROUTINE SAVES CERTAIN PARAMETERS OF CONTROL PROGRAM. 

2. THE ROUTINE SET NEW PARAMETERS (SVC 5). 

3. THE ROUTINE SIMULATES AN ATTENTION INTERRUPT BY BRANCHING TO 
THE READ INPUT COMMANDS ROUTINE IN CONTROL PROGRAM. 

4. THE ROUTINE RESTORE INITIAL PARAMETERS WHEN READING IS COM- 



A230746Q 
A23D747G 
A23074SQ 
A230749Q 
A23Q7500 
A2307510 
A230752Q 
A2307530 
A2307540 
A2307550 
A2307560 
A2307570 
A2307580 
A2307590 
A23076Q0 
A2307610 
A2307620 
A2307630 
A23Q764G 
A2307650 
A23G7660 
A2307670 
A230768G 
A23G7690 
A2307700 
A2307710 
A2307720 
A2307730 
A2307740 
A2307750 
A2307760 
A2307770 
A2307780 
A2307790 
A2307800 
A2307810 
A2307820 
A2307830 
A2307840 
A2307850 
A2307860 
A2307870 
A2307830 
A2307890 
A2307900 
A2307910 
A2307920 
A2307930 
A2307940 
A2307950 
A2307960 
A2307970 
A2307980 
A2307990 
A2308000 



* PLETEB. 

* 5, THE ROUTINE EXITS TO THE I/O REQUEST EXITS ROUTINE. 



SPACE 

* SAVE PARAMETERS SET BY THE USER'S PROGRAM (BY MEANS OF SVC 5 CALL). 



TYPRD ST LINK,LINKCS 

L INTCDE,CSLID 

L NORK2,0(INTCDE) 

HVC SVCSL(2G),0(KORK2) 

L NORK2,4(INTCDE) 

L U0RK2,G(W0RK2) 

HVC CSLATK4 ) , DEVATKI40RK2 ) 



SAVE I/O PACKAGE G.R. LINK 
ADDR. OF ENTRY POINT TO CTRL. PR. 
SAVE READ COMMAND CCW AND ADDR. 

* OF COMMAND BUFFER, LENGTH AND 

* RETURN. 

SAVE ADDRESS OF AN ENTRY POINT 

* TO CONTROL PROG. 14HERE CONTROL 

* IS RETURNED NHEN ATTENTION 

* OCCURS. 



* SET PARAMETERS TO READ COMMANDS AIMED AT I/O SUPPORT PACKAGE 



HVC CSLRD*2(1),11(I) 

HVC CSLRD*3(3),13(I) 

chop G>8 

CSLRD SVC 5 

DC X'OG' 

DC AL3(0) 

DC X f 00 f 

DC AL3CCOMRET) 

OS D 

L HORK6,DEVATT(t#)RK2) 

HVC 0(8,140RK6),RETPSW 

AH H0RK6,DEC8 

ST NORK6,CHDPSW+4 

STM 1,10,TENPGR 

LH 1,10,CALLGR 

CHOP 2,4 

SVC 3 

DC ACCMDPSS4) 

WTCMDR SVC 19 

SVC 3 

DC A(RETPSW) 



SET UP SVC 5 SEQUENCE. LENGTH 

* AND ADDR. OF INPUT BUFFER 

* (LOCATED IN USER'S PROGRAM) 



SIMULATE ATTENTION INTERRUPT 

* P5M AT POINT OF INTERRUPT. 

* ADDRESS OF ENTRY POINT TO READ 

* ROUTINE (IN CONTROL PROGR.) 
SAVE I/O PACK. G.R. 
RESTORE CALLER G.R* 

& 

BRANCH TO READ ROUTINE. 

HA IT FOR END OF READ OPERATION. 

* (BRANCH TO NTCMDR). 



* READING COMPLETED. RESTORE USER'S PARAMETERS IN CONTROL PROGRAM. 



COMRET 
CMRET1 



CMRET2 



ST 

BALR 

STM 

LH 

HVC 

HVC 

L 

L 

HVC 
L 

TM 



IOBASE,0 SAVE CALLER G.R. IOBASE 

IOBASE,0 * 

1, 10, CALLGR-CHRETK IOBASE) * SAVE CALLER G.R. 1-10 

1,10, TEHPGR-CHRETK IOBASE ) * RESTORE I/O PACK. G.R. 



CALLGR*24(4),0 
DEVATT(4,H0RK2),C5LATT 
INTCDE,CSLID 
N0RK2,G(INTCDE) 
0(20,NORK2),SVCSL 

BYTE,CSLRD+2 
Q(BYTE),X'07» 



1-10 

* REPLACE CALLER G.R. IOBASE 
RESTORE PARAMETERS IN CONTR.PRG. 

* ENTRY POINT TO CTRL. PRG. FOR 

* ATTENTION INTERRUPTS. 

* READ COMMAND CCN AND ADDR. OF 

* COMMAND BUFFER, LENGTH, RETURN 
ADDR. OF INPUT BUFFER (1ST BYTE) 
NAS READING O.K. 



A23G6010 
A2308020 
A2308030 
A2308040 
A230S050 
A23GBG60 
A2308070 
A2305080 
A2308090 
A2308100 
A2308110 
A2306120 
A2308130 
A2303140 
A230315G 
A2308160 
A230S170 
A2308180 
A2308190 
A23G8200 
A2308210 
A2308220 
A2308230 
A2308240 
A2308250 
A2308260 
A2308270 
A2308280 
A2306290 
A2308300 
A2308310 
A2308320 
A2303330 
A2308340 
A23Q3350 
A230336G 
A23Q8370 
A2308380 
A2308390 
A2308400 
A2308410 
A2303420 
A2303430 
A2306440 
A2308450 
A2308UO 
A2303470 
A2308480 
A2303490 
A2308500 
A2308510 
A2308520 
A23G853G 
A2308540 
A2308550 



BC 12,PGRACT 
L LINK,LINKC5 
OCR 15, LINK 
EJECT 



NO, PROGRAMMING ERROR > BRANCH 
YES, RESTORE I/O PACK* G.R. LINK 
* AND RETURN TO EXIT ROUTINE 



* 
* 



SPECIFIC I/O ROUTINES 
THESE ROUTINES ARE IDENTICAL IN THEIR LOGICAL STRUCTURE. THEIR 
OPERATION ARE AS FOLLOS45= 

1. THEY PERFORM CERTAIN UNIQUE INITIALYZING STEPS FOR THE I/O 
OPERATIONS AND DIFFER ONLY IN THE CONSTANTS USED FOR THOSE 
STEPS. ( COMMAND CODE, INVALID CHANNEL STATUS AND SENSE BITS). 

2. THEY BRANCH TO THE I/O REQUEST ROUTINE (CALLA) WHICH PERFORMS 
ITS OPERATION AND RETURNS CONTROL TO THE ROUTINES AT OPERATION 
3. 

3. THEY THEN PERFORM A SERIES OF DEVICE STATUS AND SENSE BYTES 
TESTS. IF AN ERROR CONDITION IS FOUND THE ACTION PRESCRIBED BY 
THE SYSTEMS STANDARDS IS TAKEN= RETRIES, MESSAGE, OPERATOR AC- 
TION. 

THESE ROUTINES ARE ENTERED FROM THE I/O REQUEST INITIALIZATION 
ROUTINE AND EXIT TO THE I/O REQUEST EXITS ROUTINE. 



SPACE 5 

* CARD READING ROUTINE * 

* NABE= RDTTTT (TTTT=1^2,2540) * 



RD1442 



RD254Q 



RDCAL1 
RDCALL 

RDCALA 



SPACE 

MVI 

MVI 

MVI 

BC 

MVI 

MVI 

MVI 

MVI 

BAL 



SHWf2,X f Ql f 

INVDEV,X'83 ? 

INVCHN,XW 

15,RDCAL1 

SM1^2,X f GQ f 

INVBEV,X f 87 f 

INVCHN,X f Gl T 

CCS4PR,X*G2' 

LINK, CALLA 



TM 

BC 
TM 
BC 
TM 
BC 
LA 
BC 



CSNPR*4,UC 

1,RDCALE 

CSWPR+4,UE 

1,INFACT 

CSMPR*5,OfJ 

B,NRMRET 

NORK2,CHNMES 

15,TSTCRD 



SET SNITCH T I442 f ON 

SET UP INVALID SENSE BITS 

SET UP INVALID CHANNEL BITS 

SET SNITCH OFF 

SET UP INVALID SENSE BITS 

SET UP INVALID CHANNEL BITS 

READ COMMAND IN C04 

SUBMIT I/O REQUEST AND NAIT 

RETURN HERE AT COMPLETION... 

...OF OPERATION-RESTORE (LINK) 

IS UNIT CHECK PRESENT 

YES- LOOK AT SENSE BITS 

NO-IS UNIT EXCEPTION 

YES, END OF FILE; LAST CARD READ 

NO-IS CHAINING CHECK 

NO RETURN TO CALLER 

PREPARE MESSAGE FOR OPERATOR 

TEST COUNT OF CARDS TO RELOAD 



UNIT CHECK CONDITION PRESENT. ANALYZE SENSE BYTES 



A23GS56Q 
A230857G 
A230858G 
£2308599 
A2308600 
A230S&1Q 
A230S620 
A2306G30 
A2308640 
A230865G 
A2303660 
A23GS670 
A23086S0 
A23G869G 
A2308700 
A23G871G 
A2308720 
A230873G 
A2308740 
A230875D 
A23G876G 
A23G877G 
£2308780 
A230879G 
A23G88GG 
A230881G 
A230882G 
A230883Q 
A23G88AG 
A230885G 
A230886G 
A2308870 
A230B8S0 
A2308890 
A2308900 
A23D891G 
A230892G 
A230893G 
A230394G 
A2308950 
A23089S0 
A2308970 
A230S9S0 
A23G8990 
A23G9GG0 
A23G9G10 
A23G902G 
A23G9G3G 
A23G9G40 
A23G9G5G 
A23G9060 
A23G907G 
A230908G 
A23G9G9G 
A23091GG 



RDCALE TM SN5PR,INTREQ IS INT. REQUIRED A2309110 

EC 8,RDCALM NO-LOOK FOR BUS OUT A2309120 

LA MORK2,INTME5 YES, PREPARE MESSAGE 'INTERVEN- A2309130 

HVC HESACT(4),OPACTl * TIGN REQUIRED 1 . A23Q9140 

BC 15,RDEND * A2309150 

* A2309IS0 
RDCALM TH 5&SPR,BU50UT IS BUS OUT CHECK PRESENT A2309170 

BC 8,RDCALH NO-LOOK FOR EQUIPMENT CHECK A2309180 

TM INTVSN,X f 02 f YES, IS RETRY OPERATION A2309190 

BC 1,RDCALI YES> BRANCH . A2309200 

01 INTVSN,X'02 f NO, SET f RETRY* SWITCH ON AND A23C9210 

BC 15,STRTI0*4 * RETRY I/O OPERATION. A2309220 

RDCALI LA fcJ0RK2,B0CMES PREPARE MESSAGE 'BUS OUT CHECK T A23D9230 

BC 15,TSTCRD * A23Q9240 

* A2309250 
RDCALH TM SNSPR,EQUCHK IS EQUIPMENT CHECK A23G9260 

BC 8,RDCALJ NO, BRANCH A2309270 

LA M0RK2,EQCHES YES, PREPARE MESSAGE * EQUIPMENT A2309280 

BC 15,TSTCRD * CHECK 1 . A2309290 

* A2309300 
RDCALJ TM SNSPR,DATCH IS DATA CHECK A2309310 

BC 8,RDCALK NO, OVERRUN (1442) A23G932D 

LA W0RK2,BATMES YES, PREPARE MESS. 'DATA CHECK' A230933D 

BC 15,TSTCRD * A2309340 

* A2309350 
RDCALK LA W0RK2,0VRMES PREPARE MESSAGE 'OVERRUN* A23093GO 

* A2309370 

* DETERMINE THE NUMBER OF CARDS TO BE RELOADED BEFORE GOING ON. A2309380 

* A2309390 
TSTCRD CLC CSI4PRH(3),ACCHPR UNIT CHECK ON INITIAL SELECTION A23G9400 

BC 4,CRDINT YES, BRANCH. A2309410 

TM S!41442,X'G1' NO, IS DEVICE A 1442 READER A2309420 

BC 8,CARD4 NO, 2540 READER, BRANCH A2309430 

MVI CRDNUM,X , F2 f RELOAD LAST 2 CARDS A2309440 

BC 15,HRTMES * A2309450 

CARD4 MVI CRDNUM>X'F4' RELOAD LAST 4 CARDS A23G94&0 

BC 15 ,HRTMES * A2309470 

CRDINT TM SH1442>X'01* IS DEVICE A 1442 CARD READER A2309480 

BC 1,CARD1 YES, BRANCH A2309490 

MVI CRDNUM,X'F3' NO, 2540 READER, RELOAD 3 CARDS A2309500 

BC 15 CRIMES * A2309510 

CARD1 MVI CRDNUH,X'Fl f RELOAD 1 CARD A2309520 

14RTMES MVC MESACTC4) ,ACTME5 SET UP CALL NRITE MESSAGE SEQ. A2309530 

RDEND BAL LNKMES,HEADHS NRITE MESSAGE A2309540 

BAL LNKMES,SNEXT READ OPERATOR ANSWER FROM 1052 A2309550 

BC 15,STRTI0 RETRY OPERATION A2309560 

EJECT A2309570 

* * A2309590 

* PRINTING ROUTINE * A2309600 

* * A2309610 

* NAME= PRNT * A2309620 

* * A2309G30 

SPACE A230965G 



FRNT 


LH 


LINK,10CI) 




ECTR 


LINK>0 




C71I 

o m 


LJJM\ >LLWrK+o 




L 


LINK ,NESLNK 




LA 


LINK,2(LINK) 




ST 


LINK,C04FR 


PRNTA 


HVI 


C04PR,X f G9' 


FRNTB 


HVI 


INVCHN,X f 01* 




HVI 


INVDEV,X'S2 f 


PRINTA 


BAL 


LINK>CALLA 


PRINTC 


TH 


C5NPR+4,UE 




BC 


8>PRIHTD 




HVI 


SKIFSM>X f 01 T 


PRINTD 


TH 


CSUPR+4,UC 




BC 


8>PRINTG 



DECREASE COUNT BY ONE 

* SKIP CONTROL CHARACTER (SPACE 

* 1 LINE OR SKIP TO CBAffJEl 1). 
ADDRESS OF DATA= BUFF+2* CHARAC- 

* TER IN BYTE LOCATION BUFFU IS 

* THE CONTROL CHARACTER. 

SET COMMAND =NRITE, SINGLE SPACE 
SET UP INVALID CHANNEL BITS 
SET UP INVALID SENSE BITS 
SUBMIT I/O REQUEST AND Wkll 

IS UNIT EXCEPTION PRESENT 
NO, SKIP NEXT INSTRUCTION 
YES, SET SKIP5N ON 
IS UNIT CHECK PRESENT 
NO, BRANCH 



* UNIT CHECK CONDITION PRESENT. ANALYSE SENSE BYTES 



PRNTDA TH CSNPR*4,DE 

BC 1,PRINTF 

TH 5N5FR>INTREQ 

BC 1>PRINTE 

PRNTDB TH RETRSN,X f Q2 f 

BC 1>FRNTDC 

01 RETRSH*X f 02* 

BC 15,RET5IO 

PRNTDC HVI SEREP ,X< IF* 

BC 15,SRPACT 

PRINTE TH INTVSH,X*G8* 

BC 1>RET5I0 

LA K0RK2,INTHES 

HVI HESACT>X f OO* 

BAL LNKHES,HEADHS 

HVI INTVSN »X*G8 f 

BC 15,RETSI0 

PRINTF TH SNSPR>FRTCHK 

BC 8, PRINTS 

TH ERPRSW,XW 

BC 1,PRINTG 

01 ERPR5N,X*04* 

TH SNSPR,EQUCHK 

LA N0RK2,EQCHES 

BC jUPRINTB 

LA N0RK2,B0CMES 

PRINTB HVI HESACT,X'GQ* 

BAL LNKHE5,HEADHS 

HVC CCMPR(8),CCNERR 

BC 15, PRNTA 

* CARRIAGE CONTROL OPERATIONS 



PRINTG 



TH 
BC 



SKIPSM,XW 
1>PRINTH 



IS DEVICE END PRESENT 

YES-FIND OUT ERROR CAUSE 

NO-IS INTERVENTION REQUIRED 

YES-PRINT OPERATOR HE S SAGE 

NO, BUS OUT CHECK, IS RETRY OP. 

YES, CALL SEREP 

NO, SET RETRY SNITCH ON AND GO 

* TO RETRY I/O OPERATION . 

SET UP SEREP INTERFACE: I/O DEV. 

* FAILURE. 

IS INTVSN=1 

YES, RETRY OPERATION 

NO, PREPARE HESSAGE *INTERV.REQ* 

* NO ANSMER REQUESTED 
NRITE HESSAGE 

SET INTVSN ON 
RETRY OPERATION 

BUS OUT OR EQUIP. CHECK PRESENT 

NO , BRANCH 

YES, IS ERPRSH ON 

YES, BRANCH 

NO, SET ERPRSH ON 

IS EQUIPMENT CHECK CONDITION 

PREPARE HESSAGE AND . . . 

. . .BRANCH IF YES 

CHANGE HESSAGE IF NO 

NO OPERATOR ACTION REQUIRED 

NRITE HESSAGE 

SET CCW TO PRINT WARNING HESSAGE 

* ON PRINTER AND GO TO PRINT IT. 



NA5 THE LAST OPERATION A SKIP 
YES, NORHAL RETURN TO CALLER 



A23G966Q 
A230%?Q 
A230%80 
A23G9690 
A230970Q 
A23G971G 
A2309720 
A2309730 
A23G9740 
A230975G 
A230976G 
A2309770 
A2309780 
A230979G 
A23G98G0 
A2309810 
A2309520 
A2309830 
A2309840 
A23G9S50 
A23G9860 
A23G9S7G 
A2309880 
A230939D 
A23G99GG 
A23G991D 
A230992G 
A23G993G 
A23G9940 
A23G9950 
A2309960 
A23G997G 
A23G99B0 
A23G9990 
A231GGGG 
A231GG1G 
A2310G20 
A231003G 
A231GQ^Q 
A231GG5G 
A231GG6G 
A2310G70 
A231008G 
A2310090 
A231G100 
A2310I1G 
A231G12G 
A2310130 
A231014G 
A231G15G 
A2310160 
A231GI7G 
A231G180 
A2310190 
A231020G 





TH 




SKIPSH,X f 01 f 


NO, IS SKIPSW ON (CHANNEL 12 


A231021Q 










* DETECTED DURING LAST OPERATE 


A231022G 




BC 




1,PRNSKP 


YES, BRANCH 


A2310230 




L 




LINK,HESLNK 


NO, DOES THE CALLER WANT A SKIP 


A231G24G 




CLI 




l(LINK),C f l f 


* TO 1ST LINE, NEXT PAGE. 


A2310250 




BC 




8, PRNSKP 


YES, BRANCH 


A2310260 


PRINTH 


HVI 




SKIPSU,X'OG T 




A2310270 




BC 




15 >NRHRET 


* CALLER 


A231G28G 












A2310290 


PRNSKP 


HVI 




rrubD v*RRt 

LLKrK>A OD 




A2310300 




01 




SKIP5N,X*8Q f 


SET 'SKIP OPERATE SWITCH ON 


A2310310 




BC 




15,PRNTB 




A231032D 












A231G33G 


CCWERR 


CCW 




X'G9 f , ERRLNE, 0,24 


CCW TO PRINT WARNING HESSAGE ON 


A2310340 


ERRLNE 


DC 




C f PRINT ERROR IN * 


* PRINTER. 


A2310350 




DC 




C'LAST LINE 1 




A2310360 


\j x./- V WW Vf 
TtHrTKlK 7* ** * 


EJECT 






A2310370 
A2310380 
A2310390 
















TAPE READ OR WRITE ROUTINE * 


A231040G 


w v v.w ffv vr s 
« X « ™ A K K K. TK «W J* > 

SPAC 






A231Q41G 
A231G420 
A231G430 


:e 












A231G44Q 


* EHTRY FOR 7-TRACK, BCD, OPERATIONS* 




A231G45G 












A231Q460 


TP7T0P 


HVI 




RW7TSH,X'10 f 


SET SN 7TRACK 


A231G47G 




HVO 




H0DSET(1),14(1,N0RK7) 


SET UP NODE SET COMMAND- DENSITY 


A2310480 




NI 




HODSET,X f C0 f 


* TRANSLATOR ON 


A231G490 




01 




KODSET,X ¥ 2B f 


* EVEN PARITY. 


A2310500 




BAL 




LINK,CTRLOP 


GO TO PERFORH CONTROL OPERATION 


A231D510 




TH 




14<WORK7),X*10 f 


IS READ OPERATION 


A2310520 




BC 




8, TAPEWR 


NO -WRITE OPERATION 


A2310530 












A231054G 


* ENTRY 


FOR 


9-TRACK READING OPERATION 




A2310550 












A231G56G 


TAPERD 


HVI 




CCWPR,X f 02 f 


SET COMMAND READ 


A2310570 




01 




RW7TSW,X<01 ? 


SET SWITCH READ 


A2310580 




BC 




15, TAPEOP 


PERFORH READ OPERATION 


A2310590 












A231DG00 


* ENTRY 


FOR 


9-TRACK WRITING OPERATION 




A231G&10 












A2310G20 


TAPEWR 


HVI 




CCWPR,X f Ql f 


SET COHHAND WRITE 


A2310630 




01 




RW7T5W,X f G2 ¥ 


SET SWITCH WRITE 


A2310&40 




CLC 




CCNPRH(2),DEC1 


IS COUNT EQUAL ONE 


A2310650 




BC 




7 > TAPEOP 


NO-PERFORM WRITE 


A231066D 




L 




W0RK2,CCWPR 


YES, IS TAPE HARK CHARACTER (7F) 


A2310670 




CLI 




QCW0RK2),X f 7F f 




A2310680 




BC 




7, TAPEOP 


NO, GO TO PERFORH WRITE OP. 


A231G69G 




HVI 




WTH,X f lF f 


YES, SET UP WRITE T.H. COHHAND 


A231D700 




BAL 




LINK,CTRLOP 


GO TO PERFORH WRITE T.H. OPER. 


A2310710 




BC 




15 iNRKRET 


RETURN TO CALLER 


A2310720 












A231Q730 


TAPEOP 


BAL 




LINK,CALLA 


PERFORH OPERATION 


A2310740 




TH 




CSUPR*4,UE 


IS UNIT EXCEPTION 


A2310750 



BC 
TH 

BC 
TH 
BC 



1,TPE0PK 
CSMPR+5 ,CHC 
1,TPE0FH 
CSUFR+4,UC 
8>NRHRET 



YES, BRANCH 

NO-IS CHAINING CHECK 

YES, BRANCH 

NO-IS UNIT CHECK 

NO, RETURN TO CALLER 



* UNIT 
TPEOP1 



CHECK CONDITION PRESENT. ANALYZE SENSE BYTES. 



TPEOPG 
TPEOPA 
TPEOPL 

TPEOP2 



TPEOP3 



TFEOP4 
TPE0P5 



TFE0P6 



TFE0P7 



TPE0P8 



TM SNSPR,CMBRJT 

BC 8, TPEOPG 

TH RW7TSN,X' 02 » 

BC 8,PGRACT 

TH SNSFRH,FILEPR 

BC 8,PGRACT 

BC 15, TPEOPL 

TH 5NSPR,INTREQ 

BC 8,TPE0P2 

TH SNSPRU,ABSTAT 

BC 8>SRPACT 

LA U0RK2,INTHES 

BC 15,0PINIT 

TH CSNPR*4,BE 

BC 8,TPE0P3 

HVI BCKSPC,X*27 f 

BAL LINK,CTRLOP 

TH SNSPR,BUSOUT 

BC 8,TPE0P5 

TH RETRSH,X* 04" 

BC 1>TPE0P4 

01 RETR5N,X'Q4 f 

BC 15,RET5I0 

LA N0RK2,B0CHES 

BC 15,0PINIT 

TH SNSPR,EQUCHK 

BC 8, TPE0P6 

LA I40RK2,EQCMES 

BC 15,0PINIT 

TH SNSPR,0VERRN 

BC 8,TPE0F8 

TH RETRSH,X f 08 f 

BC 1,TPE0P7 

01 RETRS4>X'Q8 f 

LA WORK4,5 

BCT N0RK4,RETSI0 

LA W0RK2,0VRHE5 

BC I5,0PINIT 

TH SNSPR,DATCHK 

BC 8,TPE0PF 

TH RH7TSW,X f G2 f 

BC 8,TPE0PC 



IS COMMAND REJECT 

NO, BRANCH 

IS READ OPERATION 

YES,PROGRAH ERROR, BRANCH 

NO, IS FILE PROTECT ON 

NO, PROGRAM ERROR, BRANCH 

YES, BRANCH TO ISSUE HESSAGE 

IS INT. REQ. 
NO LOOK FOR DE 
YES-IS EXISTENT TU 
NO-EXIT SEREP 
YES, ISSUE HESSAGE 



IS DEVICE END PRESENT 

NO-INITIAL SELECTION 

SET UP BACK SPACE COHHAND 

IS BUS OUT CHECK 
NO 

YES, IS THIS A RETRY OPERATION 
YES, BRANCH 

NO, SET RETRY SWITCH OH AND 

* TRY AGAIN. 

RETRY UNSUCCESSFUL. ISSUE 

* HESSAGE 'BUS OUT CHECK*. 

IS EQUIP. CHECK 
NO 

YES, ISSUE HESSAGE 'EQUIPHENT 

* CHECK V 

IS OVERRUN 
NO 

YES-IS FIRST ENTRY 
NO-DECREASE RETRY* 5 COUNT 
YES-SET SNITCH ON 
SET RETRY 'S COUNT TO 5 
RETRY 5 TIMES 

5 TIHES. ISSUE HESSAGE * OVERRUN' 



IS DATA CHECK 

NO 

YES. IS IT A NRITE OPERATION 
NO-READ 



A23107G0 
A23I0770 
A231G78Q 
A2310790 
A231D800 
A2310S10 
A2310820 
A2310830 
A231G84G 
A2310850 
A2310860 
A231087D 
A23I08SO 
A2310890 
A23109D0 
A2310910 
A2310920 
A231D930 
A231Q940 
A231G950 
A2310960 
A2310970 
A231G980 
A2310990 
A2311000 
A2311010 
A2311020 
A2311030 
A2311G40 
A23I1G5G 
A2311QS0 
A231107G 
A2311080 
A231109Q 
A2311100 
A2311110 
A231112G 
A231113G 
A2311140 
A2311150 
A23111G0 
A2311170 
A2311180 
A2311190 
A2311200 
A2311210 
A231122G 
A2311230 
A231124G 
A231125G 
A231I260 
A23I1270 
A231I280 
A2311290 
A2311300 





HVI 


ERASE,X f 17* 


SET UP ERASE COHHAND 


A2311310 




BAL 


LINK,CTRLOP 




A2311320 




TH 


RETRSW,X f 10 f 


IS SWITCH ON 


A2311330 




BC 


1,TPE0P9 


YES DECREASE BY ONE 


A23I1349 




01 


RETRSW,X f 10 f 


NO-SET ON 


A2311350 




LA 


W0RK4,3 


RETRY 3 TIMES 


A231136Q 


TPE0P9 


BCT 


W0RK4,RETSIG 


* 


A2311370 


TPEOPB 


LA 


N0RK2, BATHES 


RETRIES UNSUCCESSFUL. ISSUE 


A2311380 




BC 


15 ,OPMET 


* HESSAGE 'DATA CHECK*, 


A2311390 


TPEOPC 


TH 


RW7TSW,X f lQ f 


DATA-CHECK READ-IS 7 TRACK 


A23114G0 




BC 


1, TPEOPB 


YES, BRANCH- NO, 


A231I41G 




HVI 


TIE,X f BB v 


SET UP TRACK IN ERROR COMMAND 


A231142Q 




BAL 


LINK»CTRLOP 




A2311430 


TPEOPD 


TH 


RETRSW,X f 20 T 


IS FIRST ENTRY 


A2311440 




BC 


1> TPEOPE 


NO, BRANCH- YES, 


A2311450 




01 


RETRSW,X f 2Q f 


SET RETRY SWITCH ON 


A2311460 




LA 


W0RK4,1D 


RETRY 10 TIMES 


A2311470 


TPEOPE 


BCT 


WGRK4,RETSI0 


DECREASE RETRY* S COUNT 


A2311^80 




01 


TPCLNR,X'01 T 


SET UP TAPE CLEANER SWITCH 


A2311499 




TH 


RETRSW,X'60 f 


IS BCKSPS. PAST THE TAPE CLEANER A2311500 




BC 


1> TPEOPB 


* ALREADY PERFORMED. YES, BRANCH A2311510 




HVI 


BCKSPC,X f 27 T 


SET UP BACK SPACE COMMAND 


A2311520 


TPFRWS 


LA 


W0RK4,3 


BACKSPACE TAPE PAST TAPE CLEANER A2311530 


TP3CKS 


BAL 


LINK,CTRLOP 




A2311540 




BCT 


WORK4,TPBCK5 


3 TIMES 


A2311550 




TH 


RETRSW,X f 80 f 


IS TAPE REPOSITIONED 


A2311560 




BC 


1, TPRETR 


YES 


A2311570 




01 


RETRSW,X f 8Q f 
FRWSPC,X f 37 f 


NO-REPOSITION TAPE 


A23115S0 




HVI 


SET UP FORWARD SPACE COfiiAND 


A231159D 




BC 


15, TPFRWS 


* 


A2311G00 


TPRETR 


NI 


RETRSW,X f DF f 


RESET DATA CHECK SWITCH 


A2311SI0 




NI 


TPCLNR,X'OO f 


RESET TAPE CLEANER SWITCH 


A2311&20 




BC 


15,RETSI0 


* AND RETRY OPERATION 


A2311630 










A2311640 


TPEOPF 


TH 


SN5PR+1, NOISE 


IS NOISE 


A2311650 




BC 


1, TPEOPD 


YES-TREAT AS DATA CHECK 


A2311660 




BC 


15 ,NRMRET 


NO, OPER. OK. RETURN TO CALLER 


A2311670 










A2311G80 


* UNIT 


EXCEPTION CONDITION PRESENT, 




A231I690 










A2311700 


TPEOPK 


TH 


RW7TSW,X f Ql f 


IS READ OPERATION 


A2311710 




BC 


I,3KFACT 


YES, ISSUE MESSAGE 'END OF FILE f A2311720 




LA 


W0RK2,E0TMES 


NO, ISSUE MESSAGE f END OF TAPE* 


A2311730 




BC 


15,3NFACT+4 


* AND RETURN TO CALLER. 


A2311740 










A2311750 


TPEOPH 


TH 


CSKPR+4,DE 


CHAINING CHECK 


A2311760 




BC 


8 > TPEOPI 


IS DE PRESENT. NO, BRANCH - YES, 


A2311770 




HVI 


BCKSPC,X f 27 f 


SET UP BACK SPACE COMMAND 


A2311780 




BAL 


LINK, ORLOP 


& 


A2311790 


TPEOPI 


TH 


RETRSW,X f 40 f 


IS FIRST ENTRY 


A231180D 




BC 


1, TPEOPJ 


NO- 


A2311810 




01 


RETRSW,X'40 f 


YES-SET SWITCH ON 


A2311820 




LA 


WORK4,5 


AND RETRIES COUNT TO 5. 


A2311830 


TPEOPJ 


BCT 


W0RK4,RETSI0 


DECREASE COUNT AND RETRY 


A2311840 




LA 


W0RK2,DMiES 


RETRIES UNSUCCESSFUL. ISSUE 


A2311850 



BC 15,0PINIT 
SPACE 2 



* CONTROL OPERATIONS 



CTRLOP 


ST 


L3M>LNKCTL 




HVC 


SAVSNS(12),ERRPR 




LA 


H0RK2,H0DSET 




ST 


K0RK2,CALL+4 


CTRL! 


BAL 


LINK>CALLA 




TH 


CSHPR*4,UC 




BC 


8, CTRLEX 




TH 






BC 


1,PGRACT 




TH 


SNSPR,INTREQ 




BC 


6,CTRL2 




BC 


15,TPE0PA 


CTRL2 


TH 


C5NPR+4,DE 




BC 


!,CTRL$ 


CTRLA 


TH 


RETRSN,X f 01* 




BC 


1,CTRL3 




01 


RETRSN,X*01* 




LA 


N0RK&,3 


CTRL3 


BCT 


N0RK6,CTRL1 






1 C C0OAPT 
Id > 3KrHL 1 


CTRL4 


TM 


H0D5ET,X*Q7* 




BC 


12>CTRLA 




TH 


TPCLNR,X*01* 




BC 


8,SRPACT 




TM 
1 n 






BC 


8,SRPACT 




X 


WORK4,B3GT31 




LA 


H0RK4,1(N0RK4) 




HVI 


FRNSPC,X*37* 




01 


RETRSN,X'8Q* 




BC 


15,TPBCK5+4 


CTRLEX 


L 


LINK,LNKCTL 




HVC 


ERRPR(12),SAVSNS 




HVC 


CALL*5(3),ACCNPR 




NI 


RETRSN,X F FE f 




BCR 


15, LINK 


OPINIT 


HVC 


HESACT(4),0PACT1 




BAL 


LNKHE5,HEABH5 




BAL 


LNKHES,SHEXT 




NI 


RETRSN,X*OQ* 




BC 


15,RETSIO 




SPACE 2 



* HESSAGE 'CHAINING CHECK V 



SAVE CALLING G.R. 
SAVE SENSE BYTES AND CSI4 
SET UP IN CAM CONTROL C04 
SET NEN CAM 

EXECUTE CONTROL OPERATION 

IS UNIT CHECK PRESENT 

NO, BRANCH- YES, 

IS COHHAND REJECT 

YES-EXIT PGR. ERROR 

IS INTERVENTION REQUIRED 

NO 

YES, ISSUE HESSAGE * INTERV.REQ. * 

IS-DEVICE END PRESENT 

YES, BRANCH. 

NO-INITIAL SELECTION 

HAS OPER. BEEN RETRIED 

NO-SET SW ON 

AND RETRY 3 TIHES 

RETRIES UNSUCCESSFUL - SEREP 

IS A HOD SET COHHAND 

YES-RETRY 3 TIHES 

IS NOTION PAST THE TAPE CLEANER 

NO, EXIT TO SEREP - YES, 

IS TAPE INTO THE LOAD POINT 

NO, EXIT TO SEREP 

YES- BACKSPACE TO THE LOAD POINT 

COMPUTE COUNT OF FORWARD SPACE 

SET UP FORNARD SPACE COMMAND 

* AND EXECUTE REPOSITIONING 



RETURN TO CALLER 

RESTORE SENSE BYTES AND CSN 

RESTORE CAW 



LOAD EXPECTED ACTION 
HRITE OUT HESSAGE 
mil FOR ANSNER 

ANSNER= START. RESET SNITCH AND 
* RETRY I/O OPERATION. 



* CONSTANTS AREA PECULIAR TO TAPE ROUTINE 
SPACE 



A2311860 
A2311870 
A231186Q 
A231I890 
A2311900 
A23I1910 
A2311920 
A231193D 
A2311940 
A2311950 
A2311960 
A2311970 
A2311980 
A2311990 
A2312000 
A2312010 
A2312020 
A2312030 
A2312040 
A2312G50 
A2312G6Q 
A2312070 
A2312G30 
A2312090 
A231210D 
A2312110 
A2312120 
A2312130 
A2312149 
A2312150 
A231216Q 
A231217D 
A2312180 
A2312190 
A2312200 
A231221Q 
A231222G 
A231223Q 
A2312240 
A2312250 
A2312260 
A2312270 
A2312280 
A2312290 
A2312300 
A2312310 
A2312320 
A2312330 
A2312340 
A2312350 
A2312360 
A2312370 
A2312380 
A2312390 
A2312400 



LNKCTL 


OS 


F 




SAVE AREA FOR CALLING G.R LINK 


A2312410 


SAVSN5 


DS 


3C 




- SENSE BYTES 


A2312420 


SAVTIE 


DS 


C 




- TIE BYTE 


A2312430 


SAVCSH 


BS 


ec 




- CSU 


A2312440 












A2312450 


HuDSEl 


rr? t 


X'03 f >SAVTIE>X f G0M 


rfUDE be I LUmAND 


A2312460 


TIE 


EQU 


HOD SET 




* 


A2312470 


BCK5PC 


EQU 


HOD SET 




* 


A2312480 


FRHSPC 


EQU 


MODSET 




* 


A2312490 


ERASE 


EQU 


HODSET 






A2312500 


NTH 


EQU 


HODSET 




* 


A2312510 


B30T31 


DC 


X f OGQ0Q0O3* 




* 


A2312520 




EJECT 








A2312530 
A2312540 






************* 














* 


A2312550 








CONSTANTS AREA * 


A2312560 










* 


A2312570 
A2312580 
A2312590 




SPACE 






********************************** 


CALLGR 


DS 


I0F 




SAVE AREA FOR GENERAL REGISTERS 


A2312600 










1-10 AFTER SVC 17/18 INTERUPT 


A2312610 


TEHFGR 


DS 


10F 




SAVE AREA FOR GENERAL REGISTERS 


A231262G 


* 








1-10 BEFORE SUBMITTING I/O 


A2312630 










REQUEST. 


A2312640 


ME5LNK 


DS 


F 




SAVE AREA FOR ADDRESS OF I/O 


A2312650 


* 








BUFFER LOCATED IN CALLING PRG. 


A23126&G 


LINKFR 


DS 


F 




* 


A2312670 


LINKCS 


DS 


F 




SAVE AREA FOR I/O PACKAGE G.R. 


A2312680 










LINK IN TYPRD ROUTINE 


A231269G 


CALL5Q 


DS 


F 




SAVE AREA FOR ADDRESS OF SVC 


A2312700 










17/18 CALLING SEQUENCE 


A2312710 


C5LID 


DC 


A(0) 




SAVE AREA FOR ADDRESS OF ENTRY 


A2312720 










POINT TO CONTROL PROGRAM 


A2312730 


IOSW 


DC 


XW 




USED TO INDICATE TYPE OF LOGICAL 


A2312740 










OPERATION (SVC 17 OR 18) 


A2312750 


TABSH 


DC 


X'0G f 




USED TO INDICATE TERMINATION OF 


A2312760 










I/O OPERATION (O.K OR NOT) 


A2312770 


INVBEV 


DC 


X'00 f 




INVALID DEVICE STATUS BITS 


A2312780 


INVCHN 


DC 


X f 00* 




INVALID SENSE BITS 


A2312790 


INTVSW 


DC 


X f G0' 




USED FOR RETRY OPERATION (IN 


A2312800 










ALL I/O ROUTINES) 


A2312810 


RETRSl-4 


EQU 


INTVSN 






A2312820 


SKIFSM 


EQU 


IMTVSN 




* 


A2312830 


ERPRSH 


EQU 


INTVSW 




* 


A2312840 


SN1442 


DC 


X'QQ< 




1442,2501,2520/2540 SWITCH 


A2312850 


RH7TSW 


EQU 


£41442 




7TRACK/9TRACK SNITCH 


A2312S&0 


pnsw 


EQU 


SH1«Z 






A2312870 


TPCLNR 


DC 


X f Q0* 




USED IN TAPE ROUTINE 


A2312880 


SNSPR 


EQU 


ERRPR*1 






A2312890 












A2312900 




DS 


OD 






A2312910 


RETPS4 


DC 


X f G0G4Q000 , 




USED IN READ INPUT COMMAND 


A2312920 




DC 


A(NTCMDR) 




ROUTINE AS A NAITING LOOP 


A2312930 


CMDPSH 


DC 






USED IN READ INPUT COMMAND RTNE 


A2312940 




DC 


A(0) 




TO ENTER CONTROL PROGRAM READ 


A2312950 









1052 ROUTINE. 


A2312%0 


CALPSW 


BS 


D 


SAVE AREA FOR SVC PSW (AFTER 


A2312970 








SVC 17/iB) 


A2312930 


C5LATT 


OS 


AC 


SAVE AREA FOR PARAMETERS LOCATED 


A2312990 








m CONTROL PROGRAH AND USED 


A2313000 


SVCSL 


D5 


20C 


IN READ 1052 COMMAND ROUTINE 


A2313010 


B28T31 


DC 


X'OOGOOOQF' 


x 


A2313020 


DEC1 


DC 


H'l f 




A2313030 


DEC8 


DC 


H'8 f 


x 


A23I3040 


DEC34 


DC 


H f 34 f 




A2313050 


HEX TAB 


DC 


C f 0123456789ABCDEF f 


x 


A23I30G0 


ZEROS 


DC 


X'OGOO* 


THESE TWO CONSTANTS MUST 


A2313070 


BLANK 


DC 


C f * 


BE CONTIGUOUS 


A2313080 




EJECT 






A2313090 










A2313100 




DS 


OF 


SYMBOL TABLE 


A2313110 


TABBEG 


DC 


A (SVHTAB) 


ADDR OF START OF SYMBOL TABLE 


A2313120 


TABEND 


DC 


A(SYHTAB) 


ADDR OF END OF SYMBOL TABLE 


A2313130 


SVHTAB 


DS 


200C 


SYMBOL TABLE. EACH ELEMENT IS 


A2313140 


x 






20 BYTES LONG AND CONTAINS^ 


A2313150 


x 






1. SYMBOLIC NAME OF DEV. B BYTES 


A23131G0 








2. ADDRESS OF DEVICE 2 BYTES 


A2313170 


x 






3. TYPE OF DEVICE 4 BYTES 


A2313180 








4. TYPE OF OPERATION 1 BYTE 


A2313190 


x 






5. UNUSED 1 BYTE 


A2313200 








6. ADDRESS OF I/O RTNE. 4 BYTES 


A2313210 


x 








A2313220 




DS 


OF 


DEVICES TABLE 


A2313230 


BEVID 


DC 


C*1403 f 


DEVICE TYPE 


A2313240 




DC 


C'O f 


I/O OPERATION TYPE 


A2313250 




DC 


AL3(PRNT) 


SPECIFIC I/O ROUTINE ADDRESS 


A2313260 




DC 


C f 1443 f 


x 


A2313270 




DC 


C*O f 


x 


A2313280 




DC 


AL3(PRNT) 


x 


A2313290 




DC 


C'1442 f 


x 


A2313300 




DC 


CP 


x 


A2313310 




DC 


AL3CRD1442) 


x 


A2313320 




DC 


C'2501* 


x 


A2313330 




DC 


C*I f 


x 


A2313340 




DC 


AL3(RD1442) 


x 


A2313350 




DC 


C*252G f 




A2313360 




DC 


C'I f 




A2313370 




DC 


AL3(RB1442) 


x 


A2313380 




DC 


C f 2540 f 


x 


A2313390 




DC 


C f I s 


X 


A231340Q 




DC 


AL3CRD254Q) 


X 


A2313410 




DC 


C f 1052 f 




A2313420 




DC 


CI' 


X 


A2313430 




DC 


AL3CTYPRD) 


X 


A2313440 




DC 


C f 1052 f 


X 


A2313450 




DC 


c f r 


X 


A231346G 




DC 


AL3CTYPRRT) 


X 


A2313470 




DC 


C v 24G0 f 




A2313480 




DC 


C*I f 


X 


A2313490 




DC 


AL3CTAPERD) 


X 


A2313500 



TP2400 



DC 

DC 
DC 
DC 
DC 
DC 

EJECT 



C2400' 
CO* 

AL3CTAFENR) 

C f 2400 f 

X'OO' 

AL3CTP7T0P) 



7-TRACK TAPE IDENTIFICATION 



PNCHRT 



THE NEXT PART, UP TO THE END OF PROGRAM, IS OVERLAID IF THE USER * 

DOES NOT HAKE USE OF THE CARD PUNCHING ROUTINE. THE CORRESPONDING * 

STORAGE AREA THEN CONTAINS THE CHANNEL AND UNIT CONTROL BLOCKS, * 

AND THE FIRST PART OF PROGRAM LOADED (SIMULATOR, UPBATER, . . . ). * 



DEVEND 



DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 
DC 

SPACE 



C T 2540 f 
CO* 

AL3(FN2540) 

C'1442* 

C f O' 

AL3(PN1442) 

C'2520' 

C f O* 

AL3(PN1442) 

X ? 00 f 

2 



* 



END OF DEVICE TABLE 



* CARD PUNCHING ROUTINE * 

* x 

* NAME= PNTTTT (TTTT= 1442,2540) * 



PN1442 



PN2540 



PNCAL1 
PNCALL 

PNCALA 



SPACE 

HVI 

HVI 

HVI 

BC 



S!41442»XW 
BWDEV,X f 83 f 
INVCHN,X f 00 f 
15,PNCAL1 



HVI SU1442,X*02' 
HVI IMVBEV,X*87 f 
MVI INVCHN,X f 01» 



HVI 
BAL 



TM 

BC 

TH 

BC 

TM 

BC 

CLI 

BC 

TM 

BC 



CCNPR,X f 81 f 
LINK,CALLA 



CSHPR*4,UC 

1,PNCALE 

CSUPR+4,UE 

1,PNCALD 

CS4PR*5,CHN 

1,FNCALF 

PNSU,X'02 f 

7 ,NRMRET 

RETRSW,X f 01 f 

l,STRTIO 



SET f S4ITCH 1442* ON 

SET UP INVALID SENSE BITS 

SET UP INVALID CHANNEL BITS 



SET f SNITCH 2540 7 ON 

SET UP INVALID SENSE BITS 

SET UP INVALID CHANNEL BITS 

WRITE COMMAND IN CCW 
SUBMIT I/O REQUEST AND NAIT 
RETURN HERE AT COMPLETION . . . 
.♦•OF OPERATION-RESTORE (LINK) 
IS UNIT CHECK PRESENT 
YES- LOOK AT SENSE BITS 
NO-IS UNIT EXCEPTION 
YES, BRANCH 

NO-IS CHAINING CHECK 
YES-TREAT* 

NO-SUCCESSFUL OPERATION 
IS NOT A 2540 PUNCH 
2540 PUNCH - IS AFTER RETRY 
YES - PUNCH LAST CARD 



A2313510 
A2313520 
A2313530 
A2313540 
A2313550 
A2313560 
A2313570 
A2313580 
A2313590 
A2313600 
A2313G10 
A2313620 
A2313G30 
A2313640 
A2313650 
A2313&60 
A231367G 
A2313680 
A2313690 
A2313700 
A2313710 
A2313720 
A2313730 
A2313740 
A2313750 
A2313760 
A2313770 
A2313780 
A2313790 
A2313800 
A2313810 
A2313820 
A2313830 
A2313840 
A2313850 
A2313860 
A2313870 
A2313880 
A2313890 
A2313900 
A2313910 
A2313920 
A2313930 
A2313940 
A2313950 
A2313960 
A2313970 
A2313930 
A2313990 
A2314000 
A2314010 
A2314020 
A23I4030 
A2314040 
A2314050 





SAVE 


IN PNBUF LAST PUNCHED CARD 


A2314060 






IN CASE OF ANY ERROR WHEN PUNCHING NEXT CARD 


A2314070 


PNREST 


L 


BYTE,MESLNK 




A23140S0 




LH 


RORK5,10(I) 




A2314090 




STH 


NORK5,LGPNBF 




A23141G0 




BCTR NORK5>0 




A2314110 




EX 


WORKS, SAVPN 




A2314120 




BC 


15>NRMRET 




A2314130 


SAVPN 


MVC 


PNBUF(G),1(BYTE) 




A2314140 


PHCALF 


LA 


WORKZ,CHNHES 


PREPARE MESSAGE f CHAINING CHECK* 


A2314150 




BC 


15 > PNCCRD 




A2314160 


* 








A2314170 


* UNIT CHECK CONDITION PRESENT. ANALYZE SENSE BYTES. 


A2314180 










A2314190 


PNCALE 


TM 


SNSPR,INTREQ 


IS INT. REQUIRED 


A2314200 




BC 


6, PNCALM 


NO-LOOK FOR BUS OUT 


A2314210 




LA 


N0RK2,INTMES 


YES-ISSUE MESSAGE 


A2314220 




MVC 


MESACTC4),OPACTl 




A2314230 




BC 


15>FNEND 




A23I4240 










A2314250 


PNCALM 


TM 


SNSPR,BUSOUT 


IS BUS OUT 


A2314260 




BC 


8 > PNCALH 


NO-LOOK FOR EQUIPMENT CHECK 
PREPARE MESSAGE 'BUS OUT CHECK* 


A2314270 




LA 


NORK2>B0CMES 


A2314280 




BC 


15, PNCCRD 




A2314290 










A23143DD 


FNCALH 


TM 


SNSPR,EQUCHK 


IS EQUIPMENT CHECK 


A2314310 




BC 


8 » PNCALJ 
K0RK2>EQCMES 


NO-LOOK FOR DATACHECK 


A2314320 




LA 


PREPARE MESSAGE *EQUIPM. CHECK 1 


A2314330 




BC 


15, PNCCRD 




A2314340 










A2314350 


PNCALJ 


TM 


SNSPR,DATCH 


IS DATA CHECK 


A2314360 




BC 


6,PNCALK 


NO-OVERRUN 1442 


A231437D 




LA 


NORK2,DATMES 


PREPARE MESSAGE 'DATA CHECK* 


A2314380 




BC 


15, PNCCRD 




A2314390 










A2314400 


PNCALK 


LA 


N0RK2,0VRMES 


PREPARE MESSAGE 'OVERRUN* 


A2314410 




BC 


15, PNCCRD 




A2314420 










A2314430 


PNCALD 


LA 


«0RK2,UEMES 


PREPARE MESSAGE *END OF FILE* 


A2314440 




BC 


15,OPINIT 




A2314450 










A2314460 


* DETERMINE THE NUMBER OF CARDS TO BE RELOADED BEFORE GOING ON. 


A2314470 










A2314480 


PNCCRD 


CLC 


CSMPR+1(3),ACCKPR 


IS ERROR ON INITIAL SELECTION 


A2314490 




BC 


4,CRD1 


YES, BRANCH 


A2314500 




TM 


PNSN,X*02* 
1,CRB4 


IS 2540 PUNCH 


A2314510 




BC 


YES, BRANCH 


A2314520 




MVI 


PNHUM,X*F2* 




A2314530 




BC 


15,PCHMES 




A2314540 


CRD1 


TM 


PNSJ4,X*G2* 




A23I455D 




BC 


1,CRDT 
PNNUM,X*F1* 




A23I4560 




HVI 




A2314570 




BC 


15 ,POTiES 




A23I4580 


CRDT 


MVI 


PNMUH,X*F3* 
15,PCHMES 




A2314590 




BC 




A2314600 



CRD4 

PCHHES 
PNEND 



mi PNHUM,X*F4 f 

MVC MESACT(4),PNCMES 

BAL LNKMES>HEADMS 

BAL LMMES>SNEXT 

NI INTVS*I,X f QQ f 

TH PNSU>X'02 f 

BC 8,RETSI0 



SET UP CALL WRITE MESSAGE 
* SEQUENCE 

READ OPERATOR ANSWER FROH 

RESET SNITCH 

IS 2540 PUNCH 

MO - RETRY OPERATION 



1052 



PUNCH LAST CARD SAVED IN PNBUF 

BEFORE PUNCHING CURRENT INFORMATION 

HVC CCWPRU(3)>AFNBUF 

HVC CCNFRH(2)>LGPNBF 

HVI RETRSHjX'Oi* 

BC 15>RETSI0 

CONSTANTS PECULIAR TO THE CARD PUNCHING ROUTINE. 



PNCHES 

PNACT 

PNNUH 



APNBUF 
LGPNBF 
PNBUF 



A24B 



DS 

DC 
DC 
DC 
DC 
DC 
DC 
DC 

DC 
DC 
DC 

DC 
DC 



OF 

FLl f 54 f 
ALS(FNACT) 
C* RUN OUT- SCRAP 
C'LAST f 
C f CARD(S) AND 
C ? START OR STOP 
XU5* 

AL 3 (PNBUF) 
HW 
5CLI6' 9 

A(CSLID) 
A(PNCHRT) 



TYPE 



COMMENT (COMPLETE MESSAGES) 



TEMPORARY BUFFER 



ADDR. OF 2 ENTRY POINTS TO I/O 
* PACKAGE PROGRAM FROH INITIA- 
LIZATION PROGRAM, THESE 1140 
CONSTANTS MUST BE= 



1- IN THIS ORDER 

2. CONTIGUOUS 

3. IMMEDIATELY BEFORE THE END 
STATEMENT. 



END 

AOPTN CROSSREF 

TI T LE ' I NI TI A LIZAT I ON -^GR^TfORCURRENT SYSTEMS SIMULATORS' 



INITIALIZATION PROGRAM 
FOR 

IBM SYSTEM/3&0 SIMULATOR FOR THE IBM 1620 



THE INITIALIZATION PROGRAM IS DESIGNED TO = 

1. INITIALIZE THE CONTROL PROGRAM= -READ/WRITE CONSOLE ROUTINE 



A2314610 
A2314620 
A2314630 
A2314640 
A2314650 
A23I46G0 
A2314670 
A2314&8Q 
A23I4690 
A2314700 
A23I4710 
A2314720 
A2314730 
A2314740 
A2314750 
A2314760 
A231477G 
A2314780 
A2314790 
A2314800 
A2314810 
A231482G 
A2314830 
A2314840 
A2314850 
A231436Q 
A2314870 
A23148B0 
A2314890 
A2314900 
A2314910 
A2314920 
A2314930 
A2314940 
A2314950 
A23149&G 
A23I4970 
A23I4980 
A2314990 
A2315000 
A23I5010 
A?400fUft 
A240002G 
A2400030 
A2400040 
A2400050 
A2400060 
A2400070 
A24000S0 
A2400090 
A2400100 
A2400110 
A2400120 
A2400130 
A2400140 



* -CHANNEL CONTROL BLOCKS 

* -UNIT CONTROL BLOCKS 

* 2. CREATE THE SYMBOL TABLE IN THE I/O SUPPORT PACKAGE PROGRAM. 

* 3. INITIALIZE THE RELOCATING LOADER PROGRAM^ 

* -PROGRAM SELECTION 

* -LOADING TABLE SIZE 

* -OUTPUT DEVICE (FOR PROGRAM 

* GENERATOR) 

* -CONTROL SECTIONS NOT REQUIRED 

* THE PROGRAM STRUCTURE IS DESCRIBED IN THE PROGRAM LOGIC MANUAL. 

* MORE PARTICULARLY, THE FIVE PROGRAM PHASES APPEAR IN THE SOURCE 

* LISTING. 

* THREE TYPES OF CARD ARE RECOGNIZED BY THE PROGRAM -DEV3GO, DEVSUP 

* AND CALL- NHICH ARE RESPECTIVELY USED FOR THE ABOVE FUNCTIONS. 

* THE FORMAT AND CONTENTS OF THESE CARDS, THE MESSAGES FORM THE 

* SUBJECT OF PROGRAM SPECIFICATION MANUAL. 

at ,y .y . y y y 

■tfy.V VVVVVVVVVVf^ 
ft X Vf W !W Jt Jt JtW^H 

. EJECT 

m«ww vr v 



EACH CONTROL CARD CONTAINS^ 

1. AN IDENTIFICATION CODE 

2. AN OPERATION CODE 

3. ONE OR MORE OPERANDS 



(/) 

CDEV36Q,DEVSUP,CALL) 
(ADBR=X* — ) 



IN THE FOLLOWING 
CARD COMPONENT. 



'CONTROL INFORMATION* IS USED TO DESIGNATE EACH 



L y v www \r xr x» w w w w v.w.v vv w .v .i.* .vf .v .v .v \* \? v \^ i- v .~v .v >-f v y \r >j- \r xr 



DICTIONARY (DICT) 



THE PROGRAM TRANSLATES THE MNEMONIC TERMS IN THE CARDS BY MEANS 
OF THE DICTIONARY. A DICTIONARY WORD CONSISTS OF 14 BYTES = 
BYTES 0-7 CONTAIN CONTROL INFORMATION 

BYTE 6 CONTAINS THE ACTION TO BE TAKEN, TO NIT THE NUMBER 
OF SUBROUTINE DESIGNED TO PROCESS CONTROL 
INFORMATION. THERE ARE 9 SUBROUTINES CALLED 
0PDPR1,...,0PDPR9. 
BYTE 9 CONTAINS THE TYPE OF CONTROL INFORMATION. THE BITS 
OF BYTE 9 ARE LOGICALLY ADDED TO THE BITS 
OF BYTE AT LOCATION OPDTYP. THAT ALLOWS TO 
CHECK FOR TERMS MISSING NHEN THE CARD IS 
EXHAUSTED. 

BYTE 10 CONTAINS ONE MASK USED BY THE SUBROUTINE ABOVE- 
MENTIONNED. 

BYTES 11-13 CONTAIN THE ADDRESS OF EITHER A SAVE AREA, TO STORE 

TRANSLATED CONTROL INFORMA- 
TION. 



A24Q0150 
A240G160 
A2400170 
A240Q180 
A2400190 
A240Q200 
A24Q0210 
A24Q0220 
A2400230 
A24QG240 
A2400250 
A240026G 
A24G0270 
A24G0280 
A2400290 
A24G03GQ 
A240031G 
A24Q0320 
A2400330 
A240G340 
A240G359 
A240Q360 
A2400370 
A240Q380 
A2400390 
A2400400 
A2400410 
A2400420 
A2400430 
A2400440 
A24GQ450 
A24G0460 
A2400470 
A2400480 
A2400490 
A2400500 
A2400510 
A2400520 
A2400530 
A2400540 
A24G055G 
A24G05G0 
A240G570 
A24G0580 
A2400590 
A2400600 
A24G0&10 
A2400620 
A2400S30 
A2400640 
A240065Q 
A24006GO 
A2400G70 
A2400680 
A2400690 



OR A ROUTINE TO 
CONTROL CARD, IN 
FORM, IN THE TABLE 



STORE ONE 
CONDENSED 
(TABLE). 



* TABLE 

* 

* THIS TABLE COMPRISES TNO PARTS. THE FIRST ONE, USED TO STORE THE 

* CONDENSED DEV360 CARDS IS CONTIGUOUS TO THE INITIALIZATION PRO- 

* GRAM. EACH ENTRY CONSISTS OF 8 BYTES WHICH CONTAIN= 

* BYTES 0-3 TYPE OF DEVICE. EX= 2540 
ADDRESS - - . - O00C 
SPECIAL FEATURES. - 01 (FOR CRDIMG) 
INVALID STATUS BITS. - EO (FOR 2540) 

THE CONDENSED DEV360 CARD IMAGES ARE SORTED IN ORDER OF INCREA- 
SING CHANNEL/DEVICE ADDRESSES. 



BYTES 4-5 
BYTE 6 
BYTE 7 



* THE SECOND PART OF TABLE CONTAIN ONE ENTRY OF 

* CONDENSED DEVSUP CARD IMAGE= 

I CONTAIN TYPE OF DEVICE 
i - ADDRESS OF - 

CONTAINS TYPE OF OPERATION (INPUT OR OUTPUT) 

UNUSED 



16 BYTES FOR EACH 



BYTES 
BYTES 
BYTE 
BYTE 
BYTE 



A2400700 
A240G710 
A240G720 
A2400730 
A2400740 
A2400750 
A2400760 
A2400770 
A2400780 
A2400790 
A24GG8G0 
A2400310 
* A2400820 

* 



EJECT 

* THE 3 FOLLOWING STATEMENTS DO NOT APPEAR IN THE SOURCE LISTING. * 
OPERAND 



* NAME OPERATION 



COL. 71 



mil 



SPACE 
PRINT OFF 
PUNCH f LDR 

PRINT ON 
SPACE 

START 23264 
USING INIT»BASE 
SPACE 



A240G830 
A2400S40 
A240G850 
A2400860 
A240G870 
A2400880 
A2400890 
A2400900 
A2400910 
A2400920 
A2400930 
A2400940 
A2400950 
A240G96Q 
A2400970 
A2400980 
A2400990 
A2401000 
A2401010 
A2401020 
A2401030 
A2401040 
A2401050 
A2401G60 
A2401070 
A2401080 
A2401090 
A2401100 
A2401110 
A2401120 
A2401130 
A2401140 
A2401150 
A24Q1160 
XA2401170 
A2401180 
A2401190 
A2401200 
A2401210 
A2401220 
A2401230 

^*x*&^*x**#^***x****x**x**^**s****9* A24 01240 



OFF 

'CONTENTS OF LDR CARD COLUMNS 1-55 
CONTENTS OF LDR CARD COLUMNS 56-80 



* PRINT 

* PUNCH 

* THE PUNCH ASSEMBLER INSTRUCTION CAUSES THE DATA IN THE OPERAND TO 

* BE PUNCHED IN A CARD. THE OPERAND IS WRITTEN AS A STRING OF 80 

* CHARACTERS. THE POSITION IMMEDIATELY TO THE RIGHT OF THE 

* QUOTATION MARK IS REGARDED AS COLUMN 1 OF THE CARD TO BE PUNCHED. 



Lfv\)vvv\f\ivv vv v\fvv.yy\'vuuvv v v \.r \j 



A24B0000 f 



* 
* 



GENERAL REGISTER ASSIGNMENT 





SPACE 




BASE 


EQU 


15 


BEGR 


EQU 


1 


STEPR 


EQU 


2 


FINR 


EQU 


3 


FIKRA 


EQU 


4 


POINTR 


EQU 


5 


COLR 


EQU 


6 


CONTR 


EQU 


7 


LINK 


EQU 


8 


LINKA 


EQU 


9 


LINKB 


EQU 


STEPR 


I40RK 


EQU 


10 


WORKA 


EQU 


FINRA 


HORKB 


EQU 


COLR 


BEGRA 


EQU 


POINTR 


STEPRA 


EQU 


COLR 


FINRB 


EQU 


CONTR 


EXITR 


EQU 


FINR 


LOCCTR 


EQU 


11 




EJECT 





BASE 
INDEX 



TO SCAN TABLE 



-ODD 
-BEGR+i 
-BEGR+2 
-BEGR+3 

POINTER TO FIELD ON CARD 
NUMBER OF COLUMNS TO BE SCALED 
COUNTER OF BYTES IN OPERAND 
LINK FOR SUBROUTINE CALL(LEVELl) 
LINK FOR SUBROUTINE CALLCLEVEL2) 
LINK FOR SUBROUTINE CALLCLEVEL3) 
WORKING REGISTER 
IRKING REGISTER 
WORKING REGISTER 
INDEX TO SORT TABLE -ODD 

-POINTR*! 

-POINTR+2 

OUTPUT REGISTER 
LOCATION COUNTER 



**************************************************^ 



DEFINITION OF PARAMETERS RELATED TO THE DICTIONARY 



**************************************************^ 

SPACE 
EQU 0 



ARG 

FUNCT EQU 0 
ACTION EQU 8 

TYPE EQU 9 
HASK EQU 10 
ADDRSS EQU 11 
* 

SPACE 

tf y v y v w v w it.AS.aia4 



ARGUMENT TO REFERENCE THE 

* DICTIONARY 

NUMBER OF OPERAND PROCESSING 

* SUBROUTINE 
OPERAND TYPE 
IMMEDIATE DATA 

ADDRESS OF SAVE AREA OR PROCES- 

* SING ROUTINE 



DEFINITION OF PARAMETERS RELATED TO THE CONTROL CARDS 



********* 


******* 
SPACE 






DVTYPE 


EQU 


0 


DEVICE TYPE 


CHANL 


EQU 


4 


CHANNEL UNIT ADDRESS 


DEVICE 


EQU 


5 


DEVICE UNIT ADDRESS 


SPEFT 


EQU 




SPECIAL FEATURES 


IOPTYP 


EQU 




I/O OPERATION TYPE 


INVSTS 


EQU 


7 


INVALID DEVICE STATUS BITS 


SYMBOL 


EQU 


8 


DEVICE SYMBOLIC NAME 


* 






INBICATORS= 


HEX 


EQU 


X f Gl* 


HEXADECIMAL INFORMATION 



A2401250 
A249I260 
A2401270 
A240128Q 
A2401299 
A24G130G 
A24013I9 
A2401320 
A2401339 
A240134Q 
A24G135G 
A2401360 
A2401370 
A2401380 
A24G1390 
A24014G0 
A2491410 
A2401420 
A24G1430 
A249144Q 
A2401450 
A240146G 
A240147G 
A2401430 
A2401490 
A2401500 
A2401510 
A2401520 
A2401530 
A2401540 
A2401550 
A24015G0 
A2401570 
A2401580 
A2401590 
A24016Q0 
A24G1&19 
A2491620 
A2401630 
A2401&40 
A2401650 
A2401660 
A2401G70 
A2401680 
A2401690 
A2401700 
A24017IO 
A2401720 
A2401730 
A24Q1740 
A24Q1750 
A2401760 
A2401770 
A2401780 
A2401790 



DEC 

CHAR 



■V V .V Jt/* ,V Ttf , 



EQU X f G2 f 
EQU X T 04 f 
SPACE 



DEFINITION OF PARAMETERS 
CHANEL CONTROL 



DECIMAL 
CHARACTERS 



INFORMATION 
INFORMATION 



RELATED TO THE * 
BLOCKS * 



SPACE 
DEVTAB EQU 8 
BEVADD EQU 0 

EJECT 

,y. v v v y v v vv vy.yv v'iv v v v v v y v 

* DEFINITION OF 

* UNIT 



PARAMETERS 
CONTROL 



RELATED 
BLOCKS 



TO THE 





SPACE 






DEVTYP 


EQU 


0 


DEVICE TYPE 


DEV3&0 


EQU 


4 


ADDRESS 


DEVSPF 


EQU 


G 


SPECIAL FEATURES 


INVST 


EQU 


23 


INVALID DEVICE STATUS BITS 


DEVATT 


EQU 


24 


USED IF AN ATTENTION INTERRUPT 








* CAN OCCUR ON CONCERNED DEVICE 


ATT 


EQU 


X*80 f 


ATTENTION 


oiopsy 


EQU 


56 


OLD I/O PSN 


CSN 


EQU 


64 


CHANNEL STATUS WORD 


NIOPSW 


EQU 


120 


NEH I/O PSN 



EJECT 

PHASE 1 * 



INITIALIZATION ROUTINE 



NAME= INIT 



SPACE 

v w w ■%r\j/ \r * r \* \r <y -vr xj 

* THIS ROUTINE IS THE FIRST EXECUTED AND IS ENTERED ONCE DURING EXE- 

* CUTION OF THE INITIALIZATION PROGRAM . THE STORAGE AREA OCCUPIED BY 

* THIS ROUTINE IS OVERLAID BY THE INPUT BUFFER (INBUFF) AND THE 

* TABLE (TABLE). 

* THE ABSOLUTE LOADER PROGRAM TRANSFERS IN= 

* GENERAL REGISTER 1. THE CURRENT VALUE OF THE LOCATION COUN- 
TERS ADDRESS OF THE 1ST BYTE FOLLOWING 

THE I/O SUPPORT PACKAGE* 
THE ADDRESS OF THE LAST BYTE 
CONTROL PROGRAM* 
THE ADDRESS AT MHICH CONTROL 
TRANSFERRED AT THE END OF THE INITIALI- 
ZATION PROGRAM (RELOCATING LOADER). 



GENERAL REGISTER 2. 
GENERAL REGISTER 3. 



OF THE 
MUST BE 



A2401800 
A240161Q 
A2401820 
A240183G 
A2401S40 
A24G1850 
A24G186Q 
A24G1870 
A24G188G 
A24G189G 
A240190G 
A24Q191Q 
A24G192G 
A2401930 
A24G194G 
A24C1950 
A24D1960 
A240197G 
A24G1980 
A2401990 
A24G2GQG 
A2402010 
A24G2G20 
A24G203G 
A24Q2G40 
A24G2G50 
A24G2G60 
A24G207G 
A24G2080 
A2402090 
A24G21GG 
A24G2I10 
A240212G 
A24G213G 
A24G2140 
A24G2150 
A24G216Q 
A2402170 
A240218G 
A24G219G 
A24022G0 
A24G2210 
A24D222G 
A2402230 
A2402240 
A2402250 
A240226G 
A240227G 
A2402280 
A24G2290 
A24023GG 
A240231G 
A2402320 
A24G2330 
A24G234G 



* * A2402350 

A2402360 





SPACE 






A2402370 




BALR 


BASE,Q 




A240233G 


BEGIN 


L 


BASE,AINIT-BEGIN(0,BASE) * 


A2402390 




SH 


2»DEC20 


(2)=A(ENTRY POINT TO CTRL. PROG.) 


A2402400 




STB 


l,3,LOCCNT 


SAVE G.R. 1,2,3. 


A2402410 




HVC 


AJC0NS(16)>4(2) 


SAVE 4 CONSTANTS OF CONTROL PRG. 


A24G2420 




LR 


LOCCTR,! 




A2402430 




LR 


NORK, LOCCTR 




A2402440 




5H 


K0RK,DEC8 
I0PNCH(4),4(N0RK) 


(NORK)=A(ENTRY TO I/O PACK. PRG.) 


A2402450 




HVC 


SAVE AC CARD PUNCHING ROUTINE) 


A2402460 




L 


WORK, Q( WORK) 


TRANSFER INTO I/O PACK. PROG. THE 


A24G247G 




HVC 


QC4,K0RK),CPADDR 


* ADDR. OF AN ENTRY TO CTL.PROG. 


A2402480 


INIT1 


HVC 


IPLDEV(2)>2 


SAVE IPL DEVICE ADDRESS 


A2402490 










A2402500 


INIT2 


HVC 


TEMP(8),NI0PSH 


SAVE CURRENT NEW I/O PSW AND 


A2402510 




LA 


140RK, ATIRUP 


* SET HEN RETURN ADDRESS 


A2402520 




ST 


W0RK,NI0PSN+4 


* 


A2402530 




CHOP 


2,4 




A2402540 


AT14AIT 


SVC 


3 


WAIT FOR CONSOLE ATTENTION 


A2402550 




DC 


A(ATTPSW) 




A24D25G0 










A2402570 




DS 


OD 




A2402550 


ATTPS4 


DC 


X f FF06FFFF f 


&AIT PS14-ENABLE I/O INTERRUPTS 


A2402590 




DC 


K f FFFFFFFF f 


& 


A24Q2600 


* 


EJECT 






A24026I0 
A2402620 


* 






ENTER HERE NHEN AN I/O INTERRUPT 


A2402630 


ATIRUP 


TH 


CSMH>ATT 


OCCURS. 


A2402G40 




BC 


12,ATWAIT 


RETURN TO MAIT STATE IF NOT ATT. 


A2402650 




HVC 


NI0PSN(8),TEHP 


RESTORE NIOPSW 


A2402660 




LH 


W0RK,0IGPSW+2 


PICK-UP CONSOLE ADDRESS AND 


A2402670 




STH 


W0RK,C0NSLE+4 


STORE INTO 1052 UCB, 


A2402680 




STC 


H0RK,CHOLST+8 


STORE INTO 1052 CCB, 


A24G2690 




L 


NORKA,ACONSL 


AND 


A240270Q 




STH 


NORK,0(0,UORKA) 


READ-HRITE CONSOLE ROUTINE 


A2402710 




STH 


HORK,AD1052 




A2402720 




L 


HORKA»AJCONS 


TRANSFER TO CONTROL PROGRAM 


A2402730 




HVC 


lC3,HORKA)>CHGLST+9 


ADDRESS OF UCB 1052 


A24Q274D 


* 








A2402750 


INIT3 


L 


l£)RKA,ACHTAB 


A (CHANNEL TABLE). (LOCATED IN 


A2402760 




SRL 


N0RK,8 


* CONTROL PR06RAH). 


A2402770 




SLL 


WORK 2 




A2402780 




LA 


NORKA,0(WORK>WORKA) 


A (CHANEL TABLE ELEMENT) 


A2402790 




L 


NORKB,0(0,NORKA) 




A2492800 




LTR 


NORKB>NORKB 

7>mm 


IS THERE A DEVICE ON THE CHANNEL 


A2402810 




BC 


YES, BRANCH. NO, 


A24G2820 




BC 


0>INIT5 




A2402830 




HVI 


^-3>X f FQ f 


SET SNITCH '1ST PASS' OFF. 


A2402840 




ST 


I40RKA,CHTAB0 


SAVE ENTRY POINT TO CHAN. TABLE 


A2402850 




HVC 


0(4>NORKA),CH0LST+4 


A (CHANNEL LIST) TO CHAN. TABLE 


A24028'o0 








SET UP CONTR. PROG. TO PROCESS 


A2402370 








* EXTERNAL INTERRUPTS, INPUT 


A24 02830 




BAL 


LINK,INITA 


* COMHANDS AND PROGR. INTERRUPTS 


A2402890 





BAL 


LINKA,ASSMES 




MVC 


SYSINP(4)>CMDBUF+1 






rU ±vt I K > LflUDUr to 




oc 


0(3>POINTR)>INIT72 




LA 


C0NTR,3 




BAL 


LINKA>CVRTH1 




3 f n 


CVTTD CVCTKID46 
tA JL IK >br OlNP+H 




5TC 


EXITR>CHlLST+8 




LR 


MORK,EXITR 




BC 


15,INIT3 


INIT4 


HVC 


CH0LST+i2(8)»CHlLST+6 




BC 


15,INITG 


INIT5 
* 


HVC 


0C4>is*0RKA),CHlLSTT4 


mm 


HVC 


IHIT71(2),SYSINP+4 




HVC 


INIT72(4),SYSINP 




CHOP 


0,4 


TWTT7 


jvL 


17 




DC 


CSIH2INF f 


INIT71 


DC 


X'GOQQ 1 


INIT72 


DC 


C f f 




DC 


C f F 




DC 


AL3CI0PER1) 




01 


CRDERC+l,X f FO f 




EJECT 




VWgg v i> \ 


PHASE 2 


SPACE 





REQUEST CONTROL CARD INPUT DEV. 
SET DEV. TYPE IN PROPER UCB 
CONVERT DEVICE ADDRESS TO BINARY 
LOWER TO UPPER CASE 

STORE IT IN PROPER UCB AND CCB 

A(CHANNEL LIST) TO CHANNEL TABLE 

SUBHIT LOGICAL I/O REQUEST TO 
* ASSIGN CONTROL CARD INPUT DEV. 



DEVICE SUPPORT FUNCTION (NAME) 

- ADDRESS 

- TYPE 
I/O OPERATION TYPE 
ERROR RETURN 

MODIFY ERROR SUBROUTINE 

tfvv>V,yvv\>« 



****X#X*X**X*XXX*X***XX*XX***X*XX*#*^ 



READ CONTROL CARD (IMAGE) ROUTINE 
NAME= GETCRD 



* THIS ROUTINE IS USED TO READ ONE CARD OR CARD IMAGE CON TAPE OR 

* FROM THE 1052 PRINTER-KEYBOARD ) AND TO LIST ITS CONTENTS ON THE 

* 1052 PRINTER-KEYBOARD. 



GETCRD 



LSTCRD 
LSTCR1 



SPACE 

HVI INBUFF,X f 40 f 

HVC INBUFF+K80) >INBUFF 

CNOP 0,4 

SVC 18 

DC CSIM2INF T 

DC FL2'72 f 

DC A(INBUFF) 

TM INBUFF,X'07 f 

BC 12,EXCRET 

LA POINTR,INBUFF 

LA COLR>72 

STC COLR>LSTCR3r4 



CLEAR INPUT BUFFER 

SUBMIT LOGICAL I/O REQUEST 

* (READ) 

* DEVICE SUPPORT FACTION (NAME) 

* NUMBER OF BYTES OF DATA 

* ADDRESS OF INPUT BUFFER 

BRANCH IF READ NOT O.K 



SCAN INPUT BUFFER FROM RIGHT TO 



A2402900 
A24G2910 
A24Q2920 
A24G2930 
A2402940 
A240295G 
A240296G 
A24G2970 
A2402980 
A2402990 
A24G3QD0 
A2403010 
A2403G20 
A2403030 
A2403040 
A24Q3050 
A240306Q 
A2403070 
A2403080 
A2403G90 
A2403100 
A2403110 
A2403120 
A2403130 
A24Q314Q 
A2403150 
A24G3160 
A240317Q 
A240318Q 
A2403190 
A24Q3200 
A24Q321G 
A2403220 
A2403230 
A2403240 
A2403250 
A2403260 
A2403270 
A2403280 
A2403290 
A2403300 
A24033I0 
A2403320 
A24G333Q 
A2403340 
A2403350 
A2403360 
A2403370 
A240338D 
A2403390 
A24D3400 
A2403410 
A2403420 
A2403430 
A2403440 



LSTCRO 

L5TCR2 
LSTCR3 



COLR,LSTCR0+3 

O^OINTRhX'lS* 

COLR,0 

C0LR,LSTCR2*3 

0(POINTR),X f 40 f 

8,LSTCR1 

LIHK,HSDG3 

X f OO f 

AL3CIHBUFF) 



SIC 
HVI 
BCTR 
STC 
CLI 
BC 
BAL 
DC 
DC 
EJECT 

IfWtTc^^^ ^ * * * «^ 



* LEFT TO DETERMINE LENGTH OF 

* CONTROL INFORMATION (COLR). 

LIST CONTROL INFORMATION ON 1052 

* PRINTER-KEYBOARD 



CONTROL CARD (IMAGE) ANALYZIS ROUTINE 
NAHE= CRDAN 

THIS ROUTINE IS ENTERED FROM THE GETCRD ROUTINE. ITS OPERATION IS 
AS F0LL0US= 

1. THE ROUTINE DELIMITS ONE CONTROL INFORMATION (CARD IDENTIFI- 
CATION, OPERATION CODE, OPERANDS). 

2. IT LOOKS FOR THIS INFORMATION IN THE DICTIONARY (DICT). 

3. IT LINKS TO THE SUBROUTINE DESIGNED TO PROCESS THIS TYPE OF 
INFORMATION. 

IF THERE IS NO MORE INFORMATION IN THE INPUT BUFFER THE ROU- 
TINE PERFORMS OPERATION 4. OTHERWISE IT PERFORMS OPERATION 1 

4. THE ROUTINE LINKS TO THE ROUTINE DESIGNED TO STORE THE CON- 
TROL INFORMATIONS EXTRACTED FROM THE CARD (IMAGE). 

5. THE ROUTINE EXITS TO THE GETCRD ROUTINE. 

THIS ROUTINE AND THE SUBROUTINES MENTIONED ABOVE PERFORM A DIAG- 
NOSTIC CHECK ON THE CONTROL INFORMATION, CHECKING FOR SUCH THINGS 
AS MISSING OR INVALID CONTROL INFORMATION. MESSAGES ARE PRINTED 
TO INFORM THE OPERATOR OF ANY ERROR DETECTED. THE CONTROL CARD IS 
IGNORED. 



CRDAN 



CRDAN1 

CRDAN2 



SPACE 

LA POINTR,INBUFF+l 

AR COLR,POINTR 

XC TEMP(8),TEMP 

HVI TEMP*8,X f 40 f 

MVC TEHP*9(7),TEHP*8 

XC INFTYP ( 10 ) , INFTYP 

SR CONTR,CONTR 

MVI CRBAN4*l,X'40 f 

BAL LINK, CRD AN 3 

MVI CRBAN4*l,X'7D f 

BAL LINK,CRDAN3 

MVI CRBAN4H,X*7C f 

BAL LINK,CRDAN3 

MVI CRDAN4*l,CS f 

BAL LINK, CRDAN 3 

MVI CRDAN4U,C f = v 

BAL LINK,CRDAN3 



ADDRESS OF INPUT BUFFER 
END OF USEFUL BUFFER AREA 
CLEAR TEMPORARY AREA 
0 TO FIRST PART 
BLANK TO SECOND PART 



SEARCH FOR SEPARATOR 
SEARCH FOR SEPARATOR 



SEARCH FOR SEPARATOR 
SEARCH FOR SEPARATOR 
SEARCH FOR SEPARATOR 



'(026) 



A2403450 
A24G34&0 
A2403470 
A2403480 
A2403490 
A2403500 
A2403510 
A2403520 
A24G3530 
A2403540 
A2403550 
A240356G 
A240357G 
A2403580 
A24G3590 
A24Q3600 
A2403610 
A2403620 
A2403630 
A2403640 
A2403650 
A240366G 
A2403G70 
A2403680 
A2403G90 
A2403700 
A2403710 
A2403720 
A2403730 
A2403740 
A2403750 
A2403760 
A24 03770 
A2403780 
A2403790 
A24D3800 
A2403810 
A2403820 
A2403830 
A2403840 
A24 03850 
A24038G0 
A2403870 
A2403880 
A24 03890 
A2403900 
A2403910 
A2403920 
A2403930 
A2403940 
A2403950 
A24G3960 
A2403970 
A2403980 
A2403990 



CRDAN3 



CRDAN4 



CRBAN5 
CRDAN6 



CRDANA 
CRDAN7 



CRDAN8 



CRDAN9 



HVI CRDAN4U,X T 7B f 

BAL LINK,CRDAN3 

HVI CRDAN4+l,X f 15 f 

BAL LINK,CRQAN3 

LA C0NTR,1(C0NTR) 

BC 15,CRDAN2 
EJECT 



LA *40RK,G(P0INTR,C0NTR) 

aR k>ORK,COLR 

BC 4,CRDAN4-$ 

BC 2,CRBAN9 

HVI Q(L*0RK},X T 4G' 

01 0(NORK),X'4G f 

CLI G(tfORK),XW 

BCR 7, LINK 

LTR N0RK,C0NTR 

BC 8,CRDAN8 

5TC l40RK,CRBANA+3 

BCTR WGRK,0 

5TC K0RK>CRDAN6+1 

LH BEGR,FINR,DICT 

BXH BEGR , STEPR > CRDAN7 

CLC ARG ( 1 , BEGR ),0( POINTR ) 

BC 7,CRDAN5 

CLI CRDANS+l,X f G7 f 

BC 8,CRBAN7 

CLI Q(BEGR),X ? 4G f 

BC 6, CROONS 

LA LINKA,OPDPR 

HVC **9Q),ACTI0N(BEGR) 

BAL LINK,Q(LINKA) 

LA POINTR, 1(C0NTR,P0INTR) 

BC 15,CRDAN1 



TH 
BC 
HI 
BC 
XC 

CRBANB XI 
OC 
TH 
BC 

CRBAHC 01 

mi 

L 

BALR 
BC 

EJECT 



LABLSW,LABFCT 
I2,CRBER2 
INFTYP,HEX+BEC 
8>CRDANB 
CRDTYP(1),INFTYP 
CRDTYP,X , FF f 
CRDTYP(i),OPDTYP 
CRDTYP,X f FF* 
12,CRDER3 
CARDSW,X f OO f 
CRDANC+1,XW 
LINKA,CRDTYP 
LINK,LINKA 
15,GETCRD 



SEARCH FOR SEPARATOR f = T (026) 

SEARCH FOR SEPARATOR *NL f 
LENGTH OF CONTROL INFORMATION 
CONTINUE SCANNING 

( POINTR )= A (CONTROL INFORMATION) 
(CONTR) = LENGTH OF CONTROL INF. 

IS BUFFER COMPLETELY SCANNED 

NO 

YES 

* 

LOUER TO UPPER CASE 

IS CHARACT. ANALYZED A SEPARATOR 

NO, RESUME SCANNING. YES, 

ARE THERE 2 CONSECUTIVE SEPARAT, 

YES, BRANCH 



INITIALIZE DICTIONARY LOOK-UP 

IS CTRL. INFORMATION IN DICTION. 
NO, BRANCH. YES, 
IS LENGTH CORRECT 



NO, BRANCH 
YES 

BRANCH TO CONTROL INFORMATION 
* PROCESSING SUBROUTINE 
UPDATE POINTR 
RESUME CARD ANALYSIS 



ARE CARD IDENTIFICATION AND 
*OPERTION CODE CORRECT-NO, BRANCH 
CARD SCANNING COMPLETED- 
ANY HEXAD. OR DEC. DATA MISSING 
YES-IS IT AN EXCEPTIONAL CASE-NO 
CHECK IF ALL OPERANDS 

* REQUIRED ARE PRESENT 

NO, ERROR, BRANCH 

BRANCH TO CONTROL INFORMATION 

* STORING ROUTINE 
GET NEXT CARD 



A2404QGQ 
A24Q4Q1Q 
A24G4G2G 
A2404Q30 
A240404G 
A24Q4050 
A24G4G60 
A24Q4G7G 
A24040B0 
A2404G90 
A24G41QG 
A24G411G 
A240412Q 
A24G4130 
A240414Q 
A24G415G 
A24G416G 
A240417G 
A240418G 
A24G419G 
A24G4200 
A240421G 
A24G422G 
A240423G 
A24G4240 
A2404250 
A24042GG 
A24G4270 
A240428G 
A24G429G 
A240430G 
A24G431G 
A240432G 
A24G433G 
A24G434G 
A24G435G 
A24G436G 
A240437G 
A24G4380 
A24G439G 
A24G44G0 
A24G441G 
A2404420 
A240443G 
A24G4440 
A24G445G 
A24G446G 
A24G447G 
A24G448G 
A24G4490 
A24G450G 
A240451G 
A240452G 
A24G453G 
A24G454G 



SUBROUTINES TO PROCESS CONTROL INFORMATIONS 



NAME= OPBPRN 



OPDPR 



OPDPRO 



OPDPR1 



0PDPR2 



0PDPR3 



0PDP13 
OPDPR4 



OPDPR5 



************* 

SPACE 

BC 15, OPDPRO 

BC 15,0PDPR1 

BC 15,OPBPR2 

BC 15,OPDFR3 

BC 15,0PDPR4 

BC 15,OPDPR5 

BC 15,OPBPR6 

BC 15,0PDPR7 

BC 15,0PDPR8 

BC 15,OPDPR9 



XC 
BC 
BCR 

XC 

BC 

01 

HVC 

BCR 

BAL 
STC 
HVC 
HVC 
BCR 

BAL 

NI 

BC 

NC 

BC 

ST 

BCR 

NC 
BC 
BCR 
EJECT 

TH 

BC 

TH 

BC 

BAL 

XI 

BC 



CRDTYP ( 1 ) ,MASK ( BEGR ) 

8,CRDER2 
15, LINK 

CRD TYP ( 1 ) > TYPE ( BEGR ) 

4,CRBER2 
LABLSI4,LABFCT 
CRDTYP ,HASK ( BEGR ) 
15, LINK 



WHERE N RANGE FROM 0 UP TO 9 * 
ACCORDING TO THE TYPE OF CON- * 
TROL INFORMATION. * 



ENTRIES TABLE 

* 

* 

* 
* 

* 

* 
* 



CTRL. INFO. = CARD IBENTIF. (/) 
INVALID CARD IN INPUT, BRANCH 



CTRL. INFO. = OPERAT. CODE 
INVALID CARD IN INPUT, BRANCH 
LABEL AND FUNCTION ARE LEGAL 
SAVE MASK AND ADDRESS OF CARD 
PROCESSING ROUTINE 

OPERAND=DEVICE TYPE 



LINKA,OPDPRX 
l40RK,*+5 

0(1,NORKA),FUNCT(BEGR) *STORE FUNCT =DEVICE TYPE 
INVSTSC 1 ,NORKA ) ,MASK(BEGR ) *STORE MASK=INV. STATUS BITS 
15, LINK 



LINKA,OPDPRX 

INFTYP,HEX*DEC 

8,0PDP13 

INFTYP(l), CRDTYP 
8,CRDER3 
MORKA,INFTYP 
15, LINK 

INFTYP( 1 ) ,MASK( BEGR ) 

8,CRBER4 

15, LINK 



INFTYP,HEX+DEC 

8>0PDPR6 

INF TYP, HEX 

8,0PDP15 

LINKA,CVRTH1 

INF TYP > HEX 

15,0PDP25 



0PERAND=C0N5TANT PREFIX 

IS AN HEXAD. OR DECIMAL DATA 

*EXPECTED-NO , BRANCH 

YES, SHOULD THIS DATA BE PRESENT 

YES BRANCH TO ERROR ROUTINE- NO, 

POINT OUT 'HEX .OR DEC. DATA 'EXP TED 



OFERANB=CONSTANT TYPE (HEX, DEC. . ) 
INCORRECT TYPE OF DATA, BRANCH 



OPERAND=CONSTANT OR SYMBOL 
BR IF SYMBOL 



CONVERT HEXAD -OPERAND TO BINARY 



A2404550 

A24G4560 
A2404570 
A24Q45SG 
A2404590 
A2404bGQ 
A2404610 
A24G4620 
A2404&30 
A24G4640 
A2404G50 
A2404660 
A24G4670 
A24G4680 
A2404690 
A2404700 
A2404710 
A2404720 
A2404730 
A2404740 
A2404750 
A2404760 
A240477D 
A2404780 
A2404790 
A2404S00 
A2404810 
A2404820 
A240483G 
A24 04340 
A24 04850 
A24048G0 
A2404870 
A2404880 
A2404890 
A24C4900 
A2404910 
A2404920 
A2404930 
A2404940 
A2404950 
A2404960 
A2404970 
A2404980 
A2404990 
A2405000 
A2405010 
A2405020 
A2405030 
A2405040 
A2405050 
A2405060 
A2405070 
A2405080 
A2405090 



0FDP15 


BAL 




XI 


0PDP25 


L 




STH 




BCR 






0PDPR3 


HVC 


0FBPR6 


CH 




BC 




LA 




TH 




BC 




XI 




L 


0PDP16 


EX 




BC 


0PDP36 


HVC 






0PDPR7 


BAL 




OC 




BCR 






0PDPR9 


BAL 




HVC 




BCR 






OPDPRX 


OC 




HVC 




L 




BCR 




EJECT 



LINKA,CVRTD1 
INFTYP,DEC 
LINKA,INFTYP 
EXIIR>0(0>LINKA) 
15, LINK 

CRDANC+K 1 ) ,MA5K( BEGR ) 

H0RK,DEC8 

1G,CRBER4 

L3NKA,TEMP+8 

IMF TYP, CHAR 

12,0PDPI6 

INF TYP, CHAR 

LINKA,INFTYP 

WORK,OPDP36 

15,OPDPR3 

G(l,LINKA),G(POINTR) 

LINKA, OPDPRX 
0(l,k ? ORKA),HA5K(BEGR) 
15, LINK 

LINKA, OPDPRX 
AD1052+2(2),0(WORKA) 
15, LINK 

OPDTYPC 1 ) , TYPE (BEGR ) 
NKAREA(4),MASK(BEGR) 
NORKA >HKAREA 
15,L3KKA 



CONVERT DEC -OPERAND TO BINARY 



STORE OPERAND CONVERTED 



FUNCTION 5IM5Y5 OR SIHOUT 
IS OPERAND LENGTH G.T 8 
YES-BRANCH 
* 

IS OPERAND SYMBOL OR DATA 

BRANCH IF SYMBOL 

RESET INFORMATION TYPE INDICATOR 

LOAD NEN INFORMATION TYPE 

SAVE SYMBOL OR DATA 

RETURN TO CARD SCANNING SUBROUT. 

OPERAND= FEATURE, I/O OP. TYPE,... 



OPERAND = TYR4RT 

SAVE 1052 DEVICE ADDRESS 



SUB-SUBROUTINE 



RETURN TO SUBROUTINE 



if y vy v W v y v y V \> >J \) » U W V Vt W V VV \f V \ - V 



ROUTINE TO STORE CONTROL INFORMATION IN TABLE 
NAME= CTLPR 



x ; 

* THIS ROUTINE HAS TNO ENTRIES -CTLPR AND DEVPR- USED I4HEN CONTROL 

* INFORMATION EXTRACTED FROM CONTROL CARDS -RESPECTIVELY DEV36Q AND 

* DEVSUP- ARE BEING STORED IN TABLE. THIS TABLE IS DESCRIBED IN THE 

* PROGRAM LOGIC MANUAL AND IN THE PRESENT PROGRAM LIST, IN THE SEC- 

* TION DEALING WITH THIS TABLE. 

v vr v> xr >y \r vr v» w v ■o vr v .w y ,y,vf ,y ,y \f y ,vr V V.M, 

SPACE 
LH 



CTLPR LH BEGR ,FINRA , ADDTAB+9 

CR BEGR,5TEPR 

BC 7,CTLPRI 

AR STEPR,FINR 

HVC 0(16,FINRA),D(STEPR) 

AR FINRA FINR 

CTLPR1 LM BEGRA I STEPRA , ADDTAB 

LR FINRB,BEGR 

CTLPR2 BXLE BEGRA, STEPRA, CTLPR4 

CLC TEMP+4 ( 2 ) , CHANL ( BEGRA ) 



STORE CTL.INFO. FROM DEV36G 

CHECKS AND ADJUST TABLE IF NOT 
ENOUGH ROOM BETWEEN 1ST AND 
2ND PART 

SORT 1ST PART OF TABLE IN ORDER 

* OF INCREASING 

* CHANNEL/UNIT ADDRESSES 



A24G510G 
A2405110 
A24G512G 
A24Q513Q 
A2405140 
A24G515Q 
A24G516G 
A24G5170 
A24G518G 
A24G5190 
A24G520G 
A2405210 
A240522G 
A24G523G 
A240524G 
A240525G 
A24G526G 
A2405270 
A24G528G 
A24Q5290 
A24G53Q0 
A2405310 
A24G532G 
A24G533G 
A240534G 
A2405350 
A2405360 
A24G5370 
A240538Q 
A2405390 
A2405400 
A2405410 
A24G542G 
A24G543G 
A2405440 
A240545G 
A24054S0 
A2405470 
A2405480 
A2405490 
A24G55GG 
A240551G 
A240552G 
A24G553G 
A24G5540 
A2405550 
A2405560 
A24G557G 
A2405580 
A240559G 
A24G56GG 
A24G5610 
A2405620 
A24G563G 
A2405640 



BC 8>CTLPR3 

BC 2,CTLPR2 

HVC 8(8 >BEGR), TEMP 

HVC TEHP(8),Q(BEGRA) 

HVC Q(8,BEGRA),0(BEGR) 

BC 15,CTLPR2 

CTLPR3 HVC 0(8 >BEGRA)> TEMP 

BCR 15, LINK 

CTLPR4 HVC 0(8,BEGR),TEMP 

CLI CHANL ( BEGR ) ,X T 07 f 

BC 10,CRDER4 

A BEGR,DECH8 

BC 15,DEVPR2 

DEVPR LH BEGR ,FINRA > ABDTAB*8 
Q(16,FINRA),TEMP 



LH 
HVC 
CLC 
BC 
HVC 
CLC 
BC 
HVC 
AR 
STH 
BCR 
EJECT 

vr vr vr v tfvm ry vr Vf v 
****** *****> 



DEVICE ALREADY DEFIED* BRANCH 



KEEP NEW DEFINITION OF DEVICE 

AND GET NEXT CARD 

SAVE OPERANDS IN TABLEC1ST PART) 

CHANEL GREATER THAN 6, BRANCH 

STORE CTL.INFO. FROH DEVSUP 
INITIALIZE 2ND TABLE LOOK-UP 
SAVE OPERANDS IN TABLE (2ND PART) 



SIHSYS(8),SYHB0L(FINRA) DOES THE DEVSUP CARD DEFINE THE 
7,DEVPR1 ^SUPPORT FCT.USED BY RELOC.LOADR 

MESSG7+5(8),SYHB0L(FINRA) *NO, BRANCH -YES, SET UP HESSAGE 
3KPFCT(l),IOPTYP(FINRA) *CHECK IF OPERA TUON IS T 



DEVPR1 
DEVPR2 



7,CRDER7 

LODDEV ( 2 ) , CHANL ( FINRA ) 

FINRA,FINR 

BEGR, FINRA ,ADDTAB+8 

15, LINK 



*NO, ERROR, BRANCH 
*YES,SAVE DEVICE ADDRESS 
UPDATE ADDR. OF END OF 2ND PART 
* OF TABLE AND STORE IT. 
GET NEXT CARD 



ROUTINE TO PROCESS CONTROL INFORMATION FROH CALL CARD 
NAHE= CALLPR 

THE FUNCTIONS OF THIS ROUTINE ARE FULLY DESCRIBED IN THE PROGRAM 
LOGIC MANUAL • 



***BH**^***^*^*^**^***^***^*^*^*^*^^ 



SAVE NAME OF PROGR. TO BE LOADED 

IS EDIT FUNCTION REQUIRED 

NO, BRANCH - YES, 

INITIALIZE TABLE LOOK-UP 

BRANCH IF TABLE EMPTY 

IS SYMBOL IDENTICAL TO EDIT FCT. 

YES, BRANCH - NO, 

BRANCH IF TABLE NOT EXHAUSTED 

EDIT SUPPORT FUNCTION NOT FOUND 

BRANCH TO ERROR SUBROUTINE 

IS THE DEVICE A 2400 TAPE UNIT 

NO, CARD PUNCH, BRANCH - YES, 

SAVE DEVICE ADDRESS AND EITHER 

BRANCH IF PUNCH NOT REQUIRED 

OR OVERLAY PUNCH SUBROUTINE IN 

* 10 SUPPORT PACKAGE PROGRAM 





SPACE 




CALLPR 


HVC 


PGH(8),TEMP*8 




CLI 


EDIT,X f 40 T 




BC 


8,CALLP3 




LH 


BEGR , FINR , SYMTAB 




BXLE 


BEGR, STEPR, CALERR 


CALLP1 


CLC 


EDIT ( 8 ) , SYMB0L( BEGR ) 




BC 


8,CALLP2 




BXH 


BEGR, STEPR, CALLP1 


CALERR 


HVC 


HESSG5*5(8),EDIT 




BC 


15,CRDER5 


CALLP2 


CLC 


TAP TYP ( 4 ) , DVTYPE ( BEGR ) 




BC 


7,CTLBL 




HVC 


ED I TD V ( 2 ) , CHANL ( BEGR ) 


CALLP3 


BC 


CCTLBL 




L 


LOCCTR,IOPNCH 




XC 


0(1,LOCCTR),0(LOCCTR) 




LA 


LOCCTR,l(LOCCTR) 




ST 


LOCCTR,LOCCNT 



A240565Q 

A24G5660 
A24Q5670 
A2405680 
A2405690 
A240570G 
A2405710 
A2405720 
A2405730 
A2405740 
A24Q575G 
A24G5760 
A24Q5770 
A24G5780 
A24Q5790 
A2405S0O 
A240581G 
A240582Q 
A2405830 
A24G5340 
A 24 05850 
A2405860 
A2405870 
A2405850 
A2405890 
A2405900 
A2405910 
A2405920 
A2405930 
A2405940 
A2405950 
A24G5960 
A2405970 
A24D5980 
A2405990 
A2406000 
A24G6010 
A2406020 
A240603Q 
A240G040 
A2406050 
A24060G0 
A24GG070 
A2406080 
A2406090 
A2406100 
A2406110 
A2406120 
A2406130 
A240bl40 
A2406150 
A24061&G 
A240G170 
A24GG180 
A24Q619G 



EJECT 

SXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

PHASE 3 * 
SPACE 

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
X X 
X 



ROUTINE TO BUILD CHANNEL AND DEVICE UNIT CONTROL BLOCKS 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 



CTLBL 

CTLBL1 
CTLBL2 

CTLBL3 
CTLBL4 



x 

CTLBL5 
CTLBL6 



SPACE 

LA 

BAL 

LA 

KC 

LH 

BXLE 

SR 

IC 

SLL 

L 

LTR 

BC 

BC 

KC 

ST 

ST 

AH 

SH 

HVC 

XC 

AH 

BXH 

HVI 

BC 

AH 

CLC 

BC 

ST 

CLC 

BC 

ST 

CLC 

BC 

ST 

HVC 

XC 

HVC 

HVC 

TH 

BC 

AH 

AH 

BXH 



ADJUST LOCATION COUNTER ON FULL 

*HORD BOUNDARY 

IMAGE OF CHANNEL TABLE 

x 

INITIALIZE 1ST TABLE PART LOOKUP 
BR. IF NO DEV360 CARD 



LIMA ,3 
LINK,ADJLC1 
NORKA,CHTAB 
0(32,NORKA),0(KORKA) 
BEGR >FINR » ADDTAB 
BEGR > STEPR > IOPACK 
!40RK,fc!0RK 
WORK , CHANL ( BEGR ) 
MORK,2 

NORKB , 0 (NORK ,NORKA ) 
HORKB»l40RKB 
0,CTLBL6 
7,CTLBL4 

0(8, LOCCTR), O(LOCCTR) 
LOCCTR, 0(NORK,HORKA) 
LOCCTR, 4(LOCCTR) 
LOCCTR, BEC12 
LOCCTR, DEC4 

BEVADD(l,LOCCTR),DEVICE(BEGR) *ADD 1 ELEHENT TO CHN.LIST 
4(4,L0CCTR),4(LOCCTR) 

LOCCTR, DEC8 ADD 8 TO LOCCTR 

BEGR, STEPR, CTLBL2 BR. IF 1ST PART OF TABLE NOT 

CTLBL3H,X , F0 f * EXHAUSTED. 

15,CTLBL1 * 

BUILD UNIT CONTROL BLOCKS 
NORKB,DEC4 * 

AD1052+2( 2 ) > CHANL (BEGR ) IS PROCESSED DEVICE THE 1052 



CHANNEL UNIT ADDRESS 

CHANNEL LIST CCCB) 

HAS A DEV. BEEN DEFINED ON CCB 

(NO-OP NHEN BUILDING CCB' 5) 

YES, BR. NO, BUILD A NEW CHANEL 

* LIST (CCB). 

A (CHANEL LIST) TO CHTAB 



6, **8 

LOCCTR, JCONS1 

AD1052(2),CHANL(BEGR) 

6>*+8 

LOCCTR, JCONS 



* DEFINED WITH TYPWRT. NO, BRANCH 
YES, SAVE ADDRESS OF UCB 
IS PROCESSED DEVICE THE 1052 

* USED NOW. NO, BRANCH 
YES, SAVE ADDRESS OF UCB 

DEVTABd > WORKS ) ,DEVICE(BEGR ) * LOOK FOR THE CCB ELEHENT 
G,CTLBL5 * CORRESPONDING TO DEV. PROCES. 

LOCCTR ,DEVTAB( 0 ,NORKB ) FOUND. BUILD UNIT CONTROL BLOCK 
DEVTAB ( 1 >NORKB ) , DEVICE ( BEGR ) 
0 ( 28 , LOCCTR ) , DC LOCCTR ) 
DEVTYP ( 7 , LOCCTR ) , DV TYPE (BEGR) 
INVST( 1 ,LOCCTR ) , INVSTS( BEGR ) 

INV5T( LOCCTR), ATT IS THE DEVICE A 1052 P.K. 

1,**8 NO, BRANCH. YES, ADD 1 FULL WORD 

LOCCTR >DEC4 * TO THE UCB. 

LOCCTR, DEC24 UPDATE LOCCTR (LOCATION COUNTER) 

BEGR, STEPR, CTLBL2 BR IF TABLEdST PARDNOT EXHAUS. 



A2406200 
A2406210 
A2406220 
A2406230 
A2406240 
A24Q6250 
A2406260 
A2406270 
A24G6280 
A24G6290 
A24Q6300 
A2406310 
A2406320 
A24Q6330 
A2406340 
A2406350 
A2406360 
A2406370 
A2406380 
A2406390 
A24G6400 
A2406410 
A2406420 
A2406430 
A2406440 
A2406450 
A2406460 
A2406470 
A24G6480 
A2406490 
A2406500 
A2406510 
A240G520 
A2406530 
A240654G 
A2406550 
A24Q6560 
A2406570 
A2406580 
A24G6590 
A2406600 
A2406610 
A2406620 
A2406630 
A240664G 
A2406650 
A24 06660 
A2406670 
A2406680 
A2406690 
A2406700 
A2406710 
A2406720 
A2406730 
A2406740 



EJECT 

* PHASE 4 * 

SPACE 



IOPACK 
IOPAC0 



ROUTINE TO CREATE THE SYMBOL TABLE 
I/O SUPPORT PACKAGE 

NAME= IOPACK 



in THE 



SEE PROGRAM LOGIC MANUAL, PHASE 4. 

IF THE SIMULATOR SUPPORT DEVICE (USED TO LOAD THE PROGRAM CALLED) 
OR THE 1052 PR INTER -KEYBOARD ARE NOT DEFINED AT THE END OF THIS 
ROUTINE, THE PROGRAM ISSUES AN ERROR MESSAGE AND ENTER THE MAIT 
STATE. 



IOPAC1 



I0PAC2 



IOPAC3 



SPACE 
LM 

BXLE 

MVC 

MVC 

MVC 

MVC 

TM 

BC 

XI 

TM 

BC 

XI 

L 

L 

L 

MVC 

CHOP 

SVC 

DC 

DC 

DC 

DC 

DC 

ST 

BXH 

MVC 

IC 

EX 

BC 

MVC 

CLC 

BC 

MVC 

TM 

BC 



SET UP I/O OPERATION TYPE 

SAVE PART OF CHANNEL TABLE USED 
TO PRINT MESSAGES 



BEGR , FINR , SYMTAB INITIALIZE 2ND TABLE PART LOOKUP 

BEGR,STEPR,IOPAC3 BR IF NO SYMBOLIC DEVICE 

I0PAC2+2C8 ) , SYMBOL (BEGR ) * 
IOPAC2*10C2),CHANL(BEGR) * 
I0PAC2U2 ( 4 ) , DVTYPE ( BEGR ) * 
I0PAC2+16 ( 1 ) , IOPTYP ( BEGR ) * 
IOPAC2*16,X*0F f 
5,I0PAC1 
I0PAC2*16,X V D9* 
IOFAC2*16,X f 10 f 
12,I0PAC1 
I0PAC2+16,X f GF f 
140RKA,CHTABG 
fcfORKB,Q(HORKA) 
CONTR,ACHTAB 
0(32,CONTR),CHTAB 
0,4 
17 

C* * 
X'OOOO* 
C f v 

AL3CIOPER2) 
NORKB,0(NORKA) 
BEGR,STEPR,IOPACG 
MESSG5+5(8),SIMSYS 
k f ORK,S3HIN 
K0RK,INITZ1 
B,CRDER5 

MESS05*5(8),DV1052 
JCONS(3),JCONS+l 
8,CRDER5 

MESS05*5(8),SIMOUT 
ERRSW,ERRBIT 
8 > LOCATE 



MEM CHANNEL TABLE 

SUBMIT LOGICAL I/O REQUEST 

(ASSIGN) 

* DEVICE SYMBOLIC NAME 

* - ADDRESS 

* - TYPE 

* I/O OPERATION TYPE 

* ERROR RETURN 

RESTORE CHANNEL TABLE (PART) 
BR. IF 2ND FART OF TABLE NOT EXH. 
SET UP MESSAGE AND CHECK IF 
DEVICE SUPPORT SIMSYS IS PRESENT 

NO, ERROR, BRANCH - YES, 
SET UP MESSAGE AND CHECK IF 
1052 DEV3&G HAS BEEN ENCOUNTE- 
RED - NO, ERROR, BRANCH - YES, 
SET UP MESSAGE FOR SIMOUT 
HAS ANY ERROR BEEN DETECTED 
DURING THE RUN -NO, BRANCH. 



A2406750 
A2406760 
A24G6770 
A24G6780 
A2406790 
A2406800 
A2406810 
A24G6820 
A24G6830 
A2406840 
A2406S50 
A240b8G0 
A24G6870 
A24G6880 
A2406890 
A2406900 
A2406910 
A2406920 
A2406930 
A2406940 
A2406950 
A24G6960 
A240G970 
A2406980 
A240&990 
A2407000 
A2407010 
A2407020 
A2407030 
A2407040 
A2407050 
A2407060 
A2407070 
A2407080 
A2407090 
A2407100 
A2407110 
A2407120 
A2407130 
A2407140 
A2407I50 
A2407160 
A2407I70 
A240718Q 
A2407190 
A2407200 
A2407210 
A2407220 
A2407230 
A2407240 
A2407250 
A24 07260 
A2407270 
A2407280 
A2407290 



HRITE MESSAGE 10 



BAL LINKA, DECIDE 
EJECT 

PHASE 5 

SPACE 



EXIT ROUTINE 



NAME= LOCATE * 

* 

FUNCTIONS= SEE PROGRAM LOGIC MANUAL, PHASE 5* * 

WHEN THE CORRECT PROGNAME CARD HAS BEEN PROCESSED THE PROGRAM EN- * 

TER5 THIS ROUTINE AT LOCATION INITZ. * 

THE OUTPUT SUPPORT DEVICE USED BY THE RELOCATING LOADER AND THE * 

36G/D0HP PROGRAMS HUST HAVE BEUi DEFIED IF= * 

- THE RELOCATING LOADER HUST PRINT LOADING MESSAGES * 

- AND/OR THE DOBP PROGRAM IS PRESENT IN THE PROGRAM CALLED. * 
OTHERWISE ONE MESSAGE INFORMS THE OPERATOR OF THE ERROR AND THE * 
PROGRAM STOPS. * 



ADJUST LOCATION COUNTER ON A 

^DOUBLE I40RD BOUNDARY 

TRANSFER TO CONTROL FROGRAH- 

ADDR.OF TYPEWRITER UCB 

ADDR .OF TYPEWRITER DEVICE 

AND CHANEL TABLE 

ADDR OF 360 DUMP PROGRAM 

ADDR OF RELOC . LOADER (ENTRY) 

MODIFY ERROR SUBROUTINE (RETURN) 

LOAD IPL DEVICE ADDRESS 

IS THIS DEVICE A 2400 TAPE UNIT 

NO, BRANCH - YES,C0M- 

* PARE KITH SUPPORT DEV. SIMSYS 
EQUAL, BRANCH 

NOT EQUAL, REWIND AND 

LOAD DEV. ADDR. OF DEV. SUP. SIMSYS 

IS SIMSYS A MAGNETIC TAPE UNIT 

NO. 

YES, STORE ITS DEVICE ADDRESS 
AND GET NEXT CARD IMAGE 
PROGRAM FOUND HAS NOT THE RIGHT 
NAME-IS SIMSYS DEV. A 2400 TAPE 
NO, BRANCH TO ERROR (PROG. NOT FND) 
YES, FORWARD SPACE FILE 
I/O REQUEST 

* (GET A CARD IMAGE) 

* INPUT DEVICE SUPPORT OF LOADER 

* INPUT RECORD LENGTH 

* INPUT BUFFER ADDRESS 





SPACE 




LOCATE 


ST 


LOCCTR,LOCCNT 




LA 


LINKA, 7 




BAL 


LINK,ADJLC1 




LH 


BEGR,FLNRA,AJCONS 




HVC 


G(4,BEGR),JC0N5 




MVC 


0(2,STEPR),AD1052 




MVC 


0(32,FINR),CHTAB 




HVC 


0(2,FINRA),LOCCNT+2 




HVC 


TRFPSW+5(3),RLABDR*1 




01 


CRBERBH,X f FO f 


LOCAT1 


LH 


LINKA, IPLDEV 




BAL 


LINK, VERIFY 




BC 


15,LOCAT2 




CH 


LINKA,LODDEV 




BC 


8,L0CAT4 




BAL 


LINK, REMIND 


LOCATZ 


LH 


LINKA,LODDEV 




BAL 


LINK, VERIFY 




SR 


LINKA,LINKA 




BCR 


0,0 




STH 


LINKA, IPLDEV 




BC 


15,LOCAT5 


LOCAT3 


LH 


LINKA, IPLDEV 




LTR 


LINKA,LINKA 




BC 


8,L0CERR 


LOCATE 


BAL 


LINK,FSFILE 




CNOP 


0,4 


LOCAT5 


SVC 


ie 




DC 


CSIM2SYS f 




DC 


FL2 f 80 f 




DC 


A(INBUFF) 



A2407300 
A2407310 
A2407320 
A2407330 
A2407340 
A2407350 
A2407360 
A2407370 
A2407380 
A2407390 
A2407400 
A2407410 
A2407420 
A2407430 
A2407440 
A2407450 
A24G7460 
A24 07470 
A2407480 
A2407490 
A2407500 
A2407510 
A2407520 
A2407530 
A2407540 
A2407550 
A2407560 
A2407570 
A2407580 
A2407590 
A2407600 
A2407610 
A2407620 
A24G7630 
A2407640 
A2407650 
A2407660 
A2407670 
A2407680 
A2407690 
A2407700 
A2407710 
A2407720 
A2407730 
A2407740 
A2407750 
A2407760 
A2407770 
A2407780 
A2407790 
A2407800 
A240781Q 
A2407820 
A2407830 
A2407840 



INITZ 



IHITZ1 
INITZZ 



LA C0LR»71 
EJECT 

TH INBUFF,X f G7 f 

BC 1>CRDAN 

TH INEUFF,X*G3 f 

BC 12, STOP 

BC 1>L0CERR 

HZ TB5I2E(1),LI5T 

BC 8, INITZZ 

HI CRDER3*1,X*0F* 

MVC *+7(I),SIM0U 

TH CARDSM,X f 00* 

BC 12,CRDER5 

LA 1,FHLIST 



* NUMBER OF USEFUL BYTES 

* ANALYZE ERROR TYPE 

* NORMAL RETURN 

* EXCEPTIONAL RETURN 

* ERROR I/0,BRANCH 

* END OF FILE- (PROS. NOT FND) 

IS OPTION 'LIST' SPECIFIED 
NO, BRANCH . YES, 
MODIFY ERROR SUBROUTINE 
DEVICE SUPPORT SIHOUT IS PRESENT 

NO, ERROR BRANCH - YES, 
LOAD A (PARAMETER LIST) 
*1052 DEVICE ADDRESS, 1052 UCB 
*ADDRESS, LOADING TABLE SIZE, EDIT 
*AND LOAD SUPPORT FUNCTIONS, 
THAMES OF C.S. TO BE SKIPPED 
*AND LOCATION COUNTER. 



CNOP 2,4 
SVC 3 

DC A(TRFPSH) 
EJECT 



INITIALISATION COMPLETED 
TRANSFER CONTROL TO RELOC. LOADER 



ADJUST LOCATION COUNTER SUBROUTINE 
NAHE= ADJLC1 



CALLING SEQUENCE - L 
IC 



LOCCTR,LOCCNT 

L3KKA,~NN~ 
BAL LINK,ADJLC1 
00, NONE 

WORD BOUNDARY 



m 

NN=Q1,HALF 
NN=03,FULL 
mi~ 07, DOUBLE 



* ADJUSTMENT - 

* EXIT - LINK 

* THIS ROUTINE ADJUSTS THE LOCATION COUNTER (LOCCTR AND LOCCNT) 

* THE BOUNDARY SPECIFIED IN THE CALLING SEQUENCE. 

y.V y v.y y y V V V V V V V.V vv.vv V VV :v,V v >.-* \r.\r vvvvrvvvvvvvvv.vvvv 



TO 





SPACE 




ADJLC1 


EX 


LINKA ,ADJLC2 




BCR 


8, LINK 




LA 


LOCCTR, KLOCCTR) 




ST 


LOCCTR, LOCCNT 




BC 


15,ADJLC1 


ADJLC2 


TM 


LOCCNT+3,X'00* 




SPACE 2 



* ROUTINE TO SET PARAMETERS IN CONTROL PROGRAM 



sgjtf at ;g at seat km 



A2407850 
A240786G 
A2407870 
A2407830 
A2407890 
A2407900 
A2407910 
A24G7920 
A2497930 
A2407940 
A24 07950 
A2407960 
A2407970 
A2407980 
A2407990 
A2408000 
A2403010 
A2408020 
A2408030 
A24C8040 
A24G3050 
A2403060 
A2408070 
A2408080 
A2408090 
A2408100 
A2408110 
A24G8120 
A2408130 
A2408140 
A2408150 
A24031G0 
A24G317G 
A2408180 
A2408190 
A240S200 
A2408210 
A2408220 
A2403230 
A2408240 
A2408250 
A24082G0 
A24G8270 
A24 08280 
A2403290 
A2408300 
A2403310 
A2403320 
A2403330 
A2408340 
A2403350 
A24G6360 
A2403370 
A2408380 
A2408390 



* NAME= INITA * 



INITA 
PRGPS14 



EXTPSM 



SPACE 




CNOP 


2,8 


SVC 




DC 


A(PRGCHK) 


DS 


D 


CNOP 


6>8 


SVC 


10 


DC 


ACQ) 


DC 


A (INTRET) 


DS 


D 


CHOP 




SVC 


5 


DC 


FLl'll* 


DC 


AL3CCMDBUF) 


DC 


X f 00< 


DC 


AL3CCGMRET) 


DS 


D 


BCR 


15, LINK 


EJECT 





SET UP PARAMETERS FOR PROGRAM 
* INTERRUPTS 



SET UP PARAMETERS FOR EXTERNAL 
* INTERRUPTS 



SET UP PARAMETERS FOR ATTENTION 

* INTERRUPTS 

INPUT COMMAND BUFFER (SIZE 

* AND ADDRESS) 



COMPSH 



X****X****X*X*XX**X*XXX***XX*XXX*XX^^ 

* 



INTRET 
RESUM1 



SPACE 

01 REPLSW»X'OP 
CNOP 2,4 
SVC 3 

DC ACEXTPSS4) 
SPACE 



ROUTINE TO PROCESS EXTERNAL INTERRUPT 
NAHE= INTRET 

THIS ROUTINE IS ENTERED FROM THE CONTROL PROGRAM EACH TIME A CON- 
SOLE INTERRUPT OCCURS. TIMER AND EXTERNAL SIGNAL INTERRUPTS ARE 
IGNORED BY THE CONTROL PROGRAM . 

THE ROUTINE RETURNS CONTROL TO THE POINT OF INTERRUPT. 



RETURN TO POINT OF INTERRUPT 



x 



ROUTINE TO PROCESS INPUT COMMANDS 
NAME= COMRET 

THIS ROUTINE IS ENTERED FROM THE CONTROL PROGRAM EACH TIME THE 
OPERATOR SEND A COMMAND. THE ROUTINE ANALYZES THE STATUS SET BY 
THE CONTROL PROGRAM IN FIRST LOCATION OF INPUT BUFFER. IF THE 

cmmn has been read successfully control is returned to the 

POINT OF INTERRUPT (ATTENTION). OTHERWISE THE ROUTINE REQUESTS A 
NEW COMMAND OR ENTERS THE WAIT STATE (STOP). 



A2408400 
A24G8410 
A2403420 
A240843G 
A2408440 
A240S45G 
A2408460 
A2408470 
A240848Q 
A240849Q 
A240B500 
A24G8510 
A24GS52Q 
A2408530 
A2405540 
A24Q855Q 
A240856Q 
A2408570 
A24G8580 
A2408590 
A2408S00 
A24G8610 
A24Q8620 
A240863Q 
A24G8640 
A24GS650 
A2408&60 
A2408G70 
A2408G80 
A240S&99 
A24Q8700 
A240871G 
A24 08720 
A2408730 
A2408740 
A2408750 
A2408760 
A24 08770 
A2408780 
A2408790 
A240S800 
A2408810 
A2408820 
A2408830 
A2408840 
A2408850 
A24G8860 
A2408870 
A2408S8O 
A2408890 
A24Q8900 
A2408910 
A240S920 
A2408930 
A2408940 



CMDBUF 
COHRET 



COHREi 



RE5UH2 



STOP 
HE 5 TOP 

• ,V SE XT 3* SS. V 



SPACE 

INPUT COMMAND BUFFER 
ENABLE I/O, EXT. INTERRUPTS 
IS COMMAND CORRECTLY READ 
NO, READING NOT COMPLETED 
YES, BRANCH 
UNRECOVERABLE ERROR 
IS INPUT COIf! AND f ST0P f 
YES, BRANCH 

NO, RETURN TO POINT OF INTERRUPT 



DC 
SVC 
TM 
BC 
BC 
BC 
CLC 
BC 
01 
CHOP 
SVC 
DC 



XL12 f Q* 
9 

CMDBUF, X f 07 f 
B>*-4 
1,C0MRE1 
15, STOP 

CMBBUFH(4),MEST0P 
8, STOP 
REPLSW,X'02 f 
2,4 
3 

A(CONPSW) 



CHOP 
SVC 
DC 
DC 

EJECT 



2,4 

3 

ACSTOPSW) 
C'STOP' 



SET THE SYSTEM/360 IN WAIT STATE 



WRITE MESSAGE ROUTINE 
NAME= HSDG1 



THIS ROUTINE SETS UP TO ISSUE A WRITE MESSAGE REQUEST. WHEN THE 
OPERATION HAS BEEN COMPLETED, THE ROUTINE ANALYZES THE STATUS SET 
BY THE CONTROL PROGRAM IN FIRST LOCATION OF OUTPUT BUFFER. 
THE ROUTINE HAS 3 ENTRY P0INTS= 



MSDG1 USED WHEN THE OPERATOR MUST ENTER A COMMAND AFTER * 
MESSAGE PRINTING. * 
MSDG2 USED WHEN THE OPERATOR MUST PUSH INTERRUPT KEY AFTER * 







MESSAGE PRINTING- 




* 


* M5DG3 


USED WHEN NO OPERATOR ACTION IS REQUIRED. 






SPACE 








MSDGi 


NI 


REPLSW,X'FD* 


SET SWITCH 'REQUEST CO^AND* 


ON 




BC 


15,*t8 






MSDG2 


NI 


REPLSW,X f FE f 


SET SWITCH 'PUSH INTER. KEY* 


ON 


HSDG3 


MVC 


CONCCW(4),0(LINK) 


SET-UP NEXT CALLING SEQUENCE 






SVC 


9 


ENABLE I/O, EXT. INTERRUPTS 






CHOP 


2,4 


SUBMIT 'WRITE MESSAGE* 




CONSOL 


SVC 


4 


* REQUEST 




CONCCW 


DC 


XW 


* LENGTH OF MESSAGE 






DC 


XL3*0* 


* ADDRESS - 






L 


WORK, CONCCW 








TM 


Q(W0RK),X*07 f 


IS MESSAGE CORRECTLY WRITTEN 






BC 


8,*-4 


NO, WRITING NOT COMPLETED 






BC 


1,WAITIR 


YES, BRANCH 






TM 


9(WORK),X f 03 f 


NO, IS ERROR UNRECOVERABLE 






BC 


1,ST0P 


YES, BRANCH. NO, 





A2408950 
A2488960 
A2408970 
A2408980 
A240S990 
A2409G00 
A2409010 
A2409020 
A2409030 
A2409040 
A2409050 
A2409G60 
A2409070 
A24Q9080 
A2409090 
A2409100 
A2409110 
A2409120 
A2409130 
A2409140 
A2409150 
A2409160 
A2409170 
A2409180 
A2409190 
A2409200 
A2409210 
A2409220 
A2409230 
A2409240 
A2409250 
A2409260 
A2409270 
A2409280 
A2409290 
A24G9300 
A2409310 
A2499320 
A2409330 
A2409340 
A24G9350 
A2409360 
A2409370 
A2409380 
A2409390 
A2409400 
A24094I0 
A2409420 
A2409430 
A2409440 
A2409450 
A2409460 
A2409470 
A24 09480 
A2409490 



J4AITIR 



TM 

BC 

SVC 

BC 

EJECT 



REPLSH,X f 03 f 

1,4(LINK) 

19 

15,MAITIR 



IS OPERATOR ACTION REQUIRED 

HO, RETURN TO CALLER (ERROR RTK) 

YES, MAIT FOR ACTION 



* THIS ROUTINE VERIFY THAT AN I/O DEVICE WITH A 

* 360 ADDRESS IS A MAGNETIC TAFE UNIT. 



I/O DEVICE VERIFICATION 
NAME= VERIFY 



\r w 



CALLING SEQUENCE 



RETURN 



LH LINKA, DEVICE ADDRESS 
BAL LINK, VERIFY 



4(LINK) 
O(LINK) 



SUBROUTINE * 

PARTICULAR SYSTEM * 
* 



DEVICE HAS 2400 TYPE 



- TYPE OTHER THAN 2400 



VERIFY 



VERIF1 



VERIF2 



SPACE 




STH 


LINKA, VERIF1 


CHOP 


0,4 


SVC 


0 


DC 


x'ooeo' 


DC 


C2400* 


DC 


XW 


DC 


AL3CVERIF2) 


BC 


15,4(LINK) 


BC 


15,0(LINK) 


EJECT 





SET DEV.ADDR. IN THE SVC SEQ. 
I/O VERIFICATION 

* DEVICE ADDRESS 

* DEVICE TYPE (MAGNETIC TAPE) 

* SPECIAL FEATURES 
& 

RETURN TO CALLER-DVCE =2400 TAPE 
RETURN TO CALLER-DVCE NOTE TAPE 



REMIND, FORWARD SPACE FILE SUBROUTINE 
THIS ROUTINE HAS TM0 ENTRY POINTS= 
USED FOR 



^ iLC^ 2£ ;S£ 2£ i£ 2£ ,V.i£ it .5£ ^.ifl i< 



FSFILE 
REMIND 



CALLING SEQUENCE 
RETURN 



A FORMARD SPACE FILE OPERATION ON TAPE 
A REMIND MAGNETIC TAPE OPERATION 

LH LINKA, DEVICE ADDRESS 
BAL LINK, FSFILE OR REMIND 
O(LINK) 





SPACE 




FSFILE 


MVI 


REMCCM,X*3F f 




BC 


15, REM INI 


REMIND 


HVI 


REMCCM,X f 07 f 


REM INI 


STH 


LINKA, REMIN2 




CNOP 


4,8 




SVC 


13 


REMIN2 


DC 


X'OOOG' 



FORM I/O COMMAND FORM. SPACE FILE 



FORM I/O COMMAND REMIND 

SET DEV.ADDR. IN SVC CALLING 

I/O REQUEST AND CONTINUE 

* (CONTROL OPERATION) 

* DEVICE ADDRESS 



SEQ 



A24G9500 
A2409510 
A2409520 
A24Q9530 
A2409540 
A2409550 
A24G9560 
A24Q9570 
A2409580 
A2409590 
A24G9600 
A2409610 
A24G9620 
A2409630 
A24G9640 
A2409650 
A2409660 
A24G967G 
A2409680 
A2409G90 
A2409700 
A2409710 
A2409720 
A2409730 
A2409740 
A2409750 
A2409760 
A2409770 
A2409780 
A2409790 
A2409800 
A2409810 
A2409820 
A2409830 
A2409840 
A24 09850 
A24Q98&G 
A2409870 
A2409880 
A2409890 
A2409900 
A2409910 
A2409920 
A2409930 
A2409940 
A2409950 
A2409960 
A2409970 
A2409980 
A2409990 
A2410000 
A2410010 
A2410020 
A2410030 
A2410040 





DC 


A(REHCCU) 




* CONTROL Cm 




D5 


C 




* STATUS BYTE 




DS 


3C 




* SENSE BYTES 




lib 


rv 

U 






REHPSH 


D5 


D 




* PSM AT POINT OF I/O INTERRUPT 




DC 


A(REMIN3) 




* ABDR. OF RETURN WHEN I/O 




nr 
UL 


HlKLwINo J 








BC 


15,0(LINK) 




* RETURN WHEN OPERATION STARTED 




CN0P 


2,4 






KtNINi 


SVC 


3 




RETURN TO POINT OF INTERRUPT 




DC 


A(REMPSN) 




*ABDR. OF ?m AT INTERRUPT POINT 


REHCQJ 


CO! 


XW,*,X f 00M 




CONTROL COHBAND C04 (2400 TAPE) 




EJECT 




















HEXADECIHAL TO BINARY 


CONVERSION SUBROUTINE * 






NAME= CVRTH1 




* 


* 




CALLING SEQUENCE - 


L 


POINTR, START OF FIELD ADDRESS * 








L 


CONTR, LENGTH OF FIELD (BYTES) * 


* 






BAL LINKA,CVRTH1 * 


* 




RESULT RETURNED IN 


EXITR (RIGHT JUSTIFIED) * 


* 








* 



SPACE 

HVI CVRTH2+3,X f 10 f 

SR EXITR >EXITR 

LA WORK,G 

LA KORKA , HEXTAB ( WORK ) 

BCTR WORKA,0 

CLC 0(l,POINTR),0(14ORKA) 

BC 6,CVRTH4 

BCT WORK,CVRTH3 

BC 15>CRDER4 

BCTR WORK,0 

SLL EXITR ,4 

OR EXITR »tURK 

LA POINTR, KPOINTR) 

BCT CONTR, CVRTH2 

BCR 15,LINKA 



CVRTH1 
CVRTHA 
CVRTH2 

CVRTH3 



CVRTK4 



INVALID CHARACTER , BRANCH 



CONVERSION FINISHED. RETURN 



HEXTAB 

* 



DC 

SPACE 



C'Q123456789ABCBEF f 



DECIMAL TO BINARY CONVERSION SUBROUTINE 



NAME= CVRTD1 
CALLING SEQUENCE - 



\/ v >t \/ vvr w v \i \f \f v v x/ v u v 

POINTR, START OF FIELD ADDRESS * 
CONTR > LENGTH OF FIELD (BYTES) * 



BAL LINKA>CVRTD1 



RESULT RETURNED IN EXITR (RIGHT JUSTIFIED) 



A241Q05G 

A241GG60 
A241G07G 
A2410080 
A2410G9G 
A2410100 
A24I0110 
A241012G 
A2410130 
A2410140 
A2410150 
A2410I60 
A241G170 
A2410180 
A2410I90 
A2410200 
A2410210 
A2410220 
A2410230 
A24I024D 
A2410250 
A2410260 
A2410270 
A24102BO 
A2410290 
A2410300 
A2410310 
A2410320 
A2410330 
A2410340 
A2410350 
A2410360 
A2410370 
A2410330 
A24I0390 
A2410400 
A2410410 
A2410420 
A2410430 
A2410440 
A241G45Q 
A24IG460 
A2410470 
A2410480 
A2410490 
A24105G0 
A2410510 
A2410520 
A241G530 
A2410540 
A2410550 
A241G56Q 
A2410570 
A2410580 
A2410590 



CVRTD1 



SPACE 




HVI 


CVRTH2+3,X f 0A T 


LR 


LINKB,LINKA 


BAL 


LINKA,CVRTHA 


SLL 


EXITR,4 


XX 


WKAREA,WKAREA 


ST 


EXITR,WKAREA+4 


01 


WKAREAfPjX'GF* 


CVB 


EXITR,WKAREA 


BCR 


15,LINKB 


EJECT 





SAVE RETURN ADDRESS 

SET SIGN PLUS 
RETURN TO CALLER 



ERROR MESSAGES ROUTINE 



THIS ROUTINE SETS UP TO ENTER THE WRITE MESSAGE ROUTINE (MSDG). * 

IT IS ENTERED EVERY TIME A MESSAGE IS TO BE WRITTEN ON THE 1052 * 

PRINTER-KEYBOARD, * 

MESSAGES ARE PRINTED IN SEVERAL TIMES= * 

1. MESSAGE CODE ( COMPONENT , SERIAL NUMBER, CHARACTER I,A,...). * 

2. COMMON PART, IF NEED BE. * 

3. MESSAGE TEXT. * 

SPACE 



VARIOUS ENTRIES. 



LOCERR 


MVC 


MESS08+5(B),PGM 


SET UP MESSAGE TEXT 




NI 


CRDERB+1,X* OF* 


MODIFY ERROR SUBROUTINE AND 


* 


BC 


15,CRDER3 


BRANCH TO WRITE 'CARD INVALID* 


PRGERR 


LA 


W0RK,HESSG9 


PROGRAM ERROR - BRANCH TO 


* 


BC 


15,MESC0D 


* WRITE MESSAGE AND STOP 


PRGCHK 


EQU 


PRGERR 


PROGRAM ERROR RETURN 


DECIDE 


LA 


WORK,MESS10 


CARD ERROR - WRITE MESSAGE AND 


* 


BC 


15,MESC0D 


* WAIT FOR OPERATOR DECISION 


ASSHE5 


LA 


WORK,MESSGO 


INITIALIZATION - WRITE MESSAGE 




BC 


15,MESC0D 


* AND WAIT FOR INPUT COMMAND 


* 

EXCRET 


TM 


INBUFF,X f 03 f 


CONTROL INFO. INPUT- EXCEP. RETURN 




BC 


12, STOP 


UNRECOVERABLE ERROR 




BC 


15,CRDER2 


END OF FILE (SHOULD NOT OCCUR) 



* ENTRIES USED TO INFORM THE OPERATOR OF ERRORS DETECTED DURING 

* CREATION OF SYMBOL TABLE IN I/O PACKAGE 

I0PER2 LA W0RK>I0PAC2 

ST WORKB,0(WORKA) RESTORE CHTA8 TO PRINT MESSAGE 

ST WORK, ARE TRN SAVE RETURN ADDRESS 



A2410b00 
A241GblO 
A241G62G 
A2410b30 
A241QG4Q 
A241065G 
A241GbbG 
A241G670 
A2410b80 
A2410b90 
A2410700 
A2410710 
A2410720 
A241073G 
A24I074G 
A241G75Q 
A241Q76G 
A241Q77G 
A241078G 
A241G79G 
A241G8GG 
A241GB1G 
A241Q820 
A24I0830 
A241084D 
A241C850 
A2410860 
A2410870 
A241C880 
A2410890 
A2410900 
A241G910 
A2410920 
A2410930 
A241094D 
A241G950 
A24109bO 
A2410970 
A241098G 
A2410990 
A24I1000 
A2411010 
A2411020 
A2411030 
A2411040 
A2411050 
A2411GG0 
A2411070 
A2411G80 
A2411090 
A2411100 
A2411110 
A241112D 
A2411130 
A2411140 





CLI 


16(NORK),X'02' 




A2411150 




BC 


4, IOPERA 


ERROR TYPE - 01 


A24I116Q 




HVC 


HE5S07*5(8),2(NORK) 


* NAHE OF DEV5UP 


A2411170 




LA 


NORK,HESS07 


HESSAGE 'DEV5UP INCORRECT' 


A241118Q 




BC 


15, IOPERB 




A2411190 


IOPERA 


LA 


W0RK,MESSQ6 


HESSAGE 'TOO HANY BEVSUP' 


A2411200 


IOPERB 


BAL 


LINKA,CRDERA 


BRANCH TO WRITE HESSAGE SUBRTNE. 


A2411210 




L 


LINKA»ARETRN 




A2411220 




BC 


15,2G(LINKA) 


RETURN TO (LINKAH2G 


A241123G 




EJECT 






A241124G 


* ENTRIES USED TO INFORM OF ERRORS 


DETECTED NHILE CONTROL INFORMATIONS A2411250 


* ARE 


PROCESSED. 




A2411260 


* 






* A2411270 


CRDER2 


LA 


W0RK,MESSQ2 




A2411280 




BC 


15, CRDERX 




A2411290 


CRDER3 


LA 


UORK,HESS03 




A2411300 




BC 


15, CRDERX 




A2411310 


ORDERS 


LA 


NORK,HESS04 




A2411320 




BC 


15, CRDERX 




A2411330 


CRDER5 


LA 


W0RK,HESSG5 




A241134G 




BC 


15, CRDERX 




A2411350 


CRDER6 


LA 


W0RK,ME5SG6 
15, CRDERX 




A2411360 




BC 




A241137Q 


CRDER7 


LA 


I40RK,HESS07 




A2411380 




BC 


15, CRDERX 




A2411390 


CRDER8 


LA 


N0RK,HESSQ8 




A2411400 


CRDERX 


01 


HESSH,HESBIT 


SET SWITCH 'MESSAGE 2 TO 8 f ON 


A2411410 




LA 


LINKA,GETCRD 


RETURN ADDRESS (AFTER WRITING) 


A2411420 


CRDERA 


01 


ERRSN,ERRBIT 


SET SWITCH 'CARD ERROR FOUND' ON A2411430 


CRDERB 


BC 


0,LOCAT3 


SWITCH USED DURING LOCATE PHASE 


A2411440 


CRDERC 


BC 


0, HESCOD 


SNITCH USED AT THE BEGINNING 


A2411450 




LA 


N0RK,MESSQ1 


* (INCORRECT COMMAND ) . 


A241I460 




01 


HESSW,HESBIT 


RESET SNITCH 'MESSAGE 2 TO 8' 


A2411470 




XI 


HESSNUHESBIT 




A2411480 








MESSAGE-SERIAL NUMBER, CHARACTER 


A24I1490 


HESCOD 


HVC 


HESHDR*4(3),0(WORK) 


A2411500 




LA 


LINK,4(W0RK) 


MESSAGE-CALCULATE AND STORE 


A2411510 




ST 


LINK,HESTXT 


* ADDRESS OF TEXT, 


A241152D 




HVC 


MESTXT(1),3(N0RK) 


* LENGTH OF TEXT 


A241153Q 




HVC 


HESC01+4(1),HESHDR 


SET UP NEXT CALLING SEQUENCE AND A241154Q 


HESCOl 


BAL 


LINK,HSDG3 


CALL WRITE HESSAGE ROUTINE 


A2411550 




BC 


FLl'G' 


* HESSAGE CODE 


A24115&0 




DC 


AL3(HESHDR+1) 




A2411570 




TH 


HE5SW,HESBIT 


IS COMMON TEXT TO BE PRINTED 


A2411580 




BC 


12,HESTX2 


NO, BRANCH - YES, 

RESET SWITCH 'MESSAGE 2 TO 6' 


A2411590 




XI 


HESSJ4,HESBIT 


A2411&0Q 




HVC 


HESTX1*4(1),HESS28 


SET UP CALLING SEQUENCE AND 


A2411610 


KESTX1 


BAL 


LINK,MSDG3 


CALL WRITE MESSAGE ROUTINE 


A2411620 




DC 


FL1»G' 


* HESSAGE TEXT -COMMON PART 


A2411630 




DC 


AL3(HESS28U) 




A2411640 


HE5TX2 


LA 


LINK,MESTXT 




A2411650 




CLI 


HESHBR+6,C'D' 


EXAMINE MESSAGE TYPE -'D', BRANCH A2411660 




BC 


8,HSDG2 


* TO WRITE" SUBRTNE, ENTRY 2. 


A2411670 




CLI 


HE5HDR-K>,C'A' 


* 'A', BRANCH TO WRITE ROUTINE, 


A2411G80 




BC 


8,HSDG1 


* ENTRY 1. 


A2411690 





CHOP 


0,4 




BC 


15,MSDG3 


HESTXT 


DC 


FLl ? O f 




DC 


AL3(0) 




CLI 


MESHDR+6,C r W T 




BC 


8, STOP 




BCR 


15,LINKA 


I0PER1 


EQU 


CRDERC 


ARETRN 


DC 


A(O) 


BV1052 


DC 


C f 1052PK * 




EJECT 





* f I>W»S',BR. TO ENTRY 3. 

* MESSAGE TEXT -PART NOT COMHON 

* (LENGTH AND ADDRESS) 
MESSAGE PRINTED - NAS TYPE f W f 
YES, BRANCH, STOP - NO, 

RETURN TO CALLER 
INPUT COMMAND ERROR 



MESSAGES * 



THE FOLLOWING MESSAGES HAY BE PRINTED ON THE 1052 PRINTER DURING 
EXECUTION OF THE INITIALIZATION PROGRAM . THEY ARE LISTED AND EX- 
PLAINED IN THE PROGRAM SPECIFICATION MANUAL. 

THE SPECIFICATIONS OF ONE MESSAGE FORM A SET GROUP DEFINED ON THE 
MODEL OF MESSAGE 00. THE M> LETTERS IDENTIFYING THE SIMULATOR 
SYSTEM ARE DEFINED BY A DC INSTRUCTION AT THE BEGINNING OF THE 
BLOCK OF MESSAGES. THEY APPLY TO ALL THE MESSAGES (00 TO 10). IN 
THE SAME HAY THE TEXT DEFINED IN SET GROUP MESS23 APPLY TO THE 
MESSAGES 02,..., 08. 





SPACE 




MESHDR 


DC 


FLl f 6 f 




DC 


C A2 f 


MESS28 


DC 


FLl f 19 f 




DC 


C f CONTROL CARD ER f 




DC 


C f ROR,* 


MESSOO 


DC 


C'OOA* 




DC 


FL1'33' 




DC 


C ASSIGN CONTROL f 




DC 


C'CARD INPUT DEVIC 




DC 


C*E* 




DC 


X»15 f 


MESS01 


DC 


C'QIW* 




DC 


FLl'30' 




DC 


C* COMMAND ERROR, C f 




DC 


C f AHNOT CONTINUE' 




DC 


X'15 f 


MESS02 


DC 


C ? 02W 




DC 


FL1*29' 




DC 


C f INVALID CARD,CA* 




DC 


C'WOl CONTINUE* 




DC 


X'lS' 


MESS03 


DC 


C ? 03P 




DC 


FLl f 26* 




DC 


C f TERMS ABSENT, CA f 




DC 


C f RD IGNORED f 




DC 


X'15 f 


ME5S04 


DC 


C f 04P 



MESSAGE CODE 



TEXT COMMON TO MESSAGES MESS02, 
...,MESS08. 

SEQ .NUMBER , CHARACTERS, I ,H ,D , S )* 

LENGTH OF TEXT 

TEXT 

NEW LINE CHARACTER. 



A2411700 
A2411710 
A2411720 
A241173G 
A2411740 
A2411750 
A2411760 
A2411770 
A241178Q 
A2411790 
A24118Q0 
A2411810 
A2411S20 
A2411830 
A241184G 
A2411S50 
A2411860 
A241187G 
A2411880 
A2411890 
A2411900 
A241191Q 
A2411920 
A2411930 
A2411940 
A2411950 
A241196G 
A2411970 
A2411980 
A2411990 
A2422000 
A2412010 
A2412G20 
A2412G30 
A2412C40 
A2412050 
A2412060 
A241207G 
A2412G80 
A2412090 
A24121G0 
A24I211Q 
A2412120 
A2412130 
A2412140 
A2412150 
A2412160 
A2412170 
A2412180 
A2412190 
A241220Q 
A2412210 
A24 12220 
A241223Q 
A2412240 





DC 


FLI*27* 




A241225Q 




DC 


C f INVALID TERMS, C* 




A2412260 




DC 


CARD IGNORED * 




A2412270 




DC 


X'15 f 




A2412230 


MESS05 


DC 


COSH* 




A2412290 




DC 


FLl'38* 




A2412300 




DC 


C f MOT AS' 




A2412310 




DC 


C SIGNED, CANNOT CO f 




A241232G 




DC 


CONTINUE* 




A2412330 




DC 


X'15* 




A241234G 




EJECT 






A2412350 


MESSG6 


DC 


C*G&!4* 




A24123GG 




DC 


FL1*4Q* 




A2412370 




DC 


C f TOO MANY DEVSUP* 




A2412380 




DC 


C* SYMBOLS, CA^OT * 




A241239Q 




DC 


ccontinue* 




A2412400 




DC 


X'15 f 




A24124I0 


HE5S07 


DC 


C f 07I' 




A241242D 




DC 


FL1 T 42* 




A2412430 




DC 


C* INCORR f 




A2412440 




DC 


CECTLY DEFINED >CA* 




A2412450 




DC 


CRD IGNORED f 




A2412460 




DC 


X*15* 




A241247D 


HE5S0B 


DC 


C*G6M* 




A2412480 




DC 


FLl f 33 f 




A2412490 




DC 


C f INVALI* 




A2412500 




DC 


C ? D,CAT#10T CONTINU* 




A24I2510 




DC 


CE* 




A2412520 




DC 


X*15* 




A2412530 


HESS09 


DC 


C*G9U* 




A2412540 




DC 


FLl f 35* 




A2412550 




DC 


C* PROGRAM ERROR, C* 




A2412560 




DC 


CANNOT CONTINUED* 




A2412570 




DC 


CUHP* 




A2412580 




DC 


X'15* 




A2412590 


ntSSlu 


DC 


C10D* 




A2412buG 




DC 


FL1%1* 




A241261Q 




DC 


C INCORRECT CARDS* 




A2412620 




DC 


C - EITHER START * 




A241263Q 




DC 


CNEN RUN OR PUSH * 




A2412640 




DC 


C f INTERRUPT KEY* 




A2412G50 




DC 


X*15* 




A2412bb0 




EJECT 




A241267Q 


* 


c « jv j*r x «• ; 






f* A2412b80 
* A2412b90 






CONSTANTS AREA 


* A2412700 










* A241271Q 








SPACE 






A2412730 


CHTAB 


DS 


8F 


TEMPORARY BUFFER USED TO BUILD 


A2412740 








CHANNEL TABLE 


A2412750 


CHTABQ 


DS 


IF 


SAVE AREA 


A2412760 










A2412778 


* TEMPORARY CHANNEL LISTS AMD UNIT CONTROL BLOCKS . 


A2412780 


* (SEE PROGRAM LOGIC MANUAL, PHASE 1) 




A241279D 



* IF THE 1052 


P.K. AND THE CONTROL INFO. INPUT DEVICE ARE ON THE SAME 


A2412800 


* CHANEL THE 


PROGRAM GROUPS THE TOO CHANNEL LISTS. 


A2412810 










A24 12820 


CHOLST 


DC 


A(0) 




A2412830 




DC 


A(CHOLST) 




A2412840 




DC 


X f 00 f 




A2412850 




DC 


AL3CCON5LE) 




A2412860 




DC 


F'0 f 




A2412870 










A241288D 


CH1LST 


DC 


ACO) 




A2412890 




DC 


A(CHILST) 




A2412900 




DC 


X T 00* 




A2412910 




DC 


AL3(SYSINP) 




A2412920 




DC 


F f 0* 




A2412930 










A2412940 


CONSLE 


DC 


C'1052 f 


PRINTER-KEYBOARD 


A2412950 




DC 


X f 0000 f 


DEVICE ADDRESS 


A2412960 




DC 


X'GOQG' 




A2412970 




DC 


3F*G ¥ 




A2412980 




DC 


XL3 f G* 




A2412990 




DC 


X%0 f 




A2413000 




DC 


A(0) 




A2413G10 


SYSINP 


DC 


C f 1 


CONTROL INFO. INPUT DEVICE 


A2413020 




DC 


X f 0000 f 


DEVICE ADDRESS 


A2413030 




DC 


X T 0000 f 




A2413Q40 




DC 


3F f 0 f 




A2413Q50 




DC 


XL3*0 f 




A24130b0 




DC 


X'E0 f 




A2413070 




EJECT 






A241308G 


INBUFF 


EQU 


GETCRD-S1 


CONTROL INFO. INPUT BUFFER 


A2413Q90 


AINIT 


DC 


A(INIT) 




A2413100 




EQU 


INITZ 


ACPROGHAHE CARD PROCESS. RTNE) 


A2413110 










A2413120 


TABLE 


EQU 


WBUFF-3 




A2413130 


ADD TAB 


DC 


A (TABLE) 


START OF 1ST PART 


A2413140 


DECN8 


DC 


F f -8* 


LENGTH OF 1ST PART ELEMENT 


A2413150 




DC 


ACTABLE ~8) 


END - - . - 


A2413160 


SYHTAB 


DC 


ACTABLE-8) 


START - 2ND - 


A241317G 


DECM16 


DC 


F f -16» 


LENGTH - - - ELEMENT 


A2413180 




DC 


A (TABLED) 


END 


A2413190 










A2413200 


DEW 


DC 


H'4* 




A2413210 


DEC8 


DC 


H'8 ? 




A241322Q 


DEC12 


DC 


H*12 f 




A241323G 


DEC20 


DC 


H f 20 f 




A2413240 


DEC24 


DC 


H'24' 




A2413250 










A24132G0 


LODDEV 


DC 


H f 0' 




A2413270 


JCONS 


DC 


ACO) 


UCB ADDR. OF TYPEWRITER USED NOH A2413280 


IOPNCH 


DC 


ACO) 


AC I/O SUP.PACKAGE PUNCH ROUTINE) A2413290 










A24133Q0 


* PARAMETER LIST. FOLLOW IMG CONSTANTS HOST BE CONTIGUOUS AND ORDERED 


A2413310 


* 




AS FOLLOW . 




A241332Q 










A2413330 


AB1052 


DC 


ACO) 


TYPEWRITER DEVICE ADDRESS 


A2413340 



JC0NS1 


DC 


ACO) 


UCB ADDRESS 


A241335G 


TBSIZE 


DC 


A(O) 


LOADER TABLES SIZE 


A24133b0 


EDIT 


DC 


C ¥ 1 


EDIT SUPPORT FUNCTION-NAME AND 


A241337G 


EBITDA 


DC 


H*G f 


* ADDRESS OF DEVICE 


A241338G 


IPLDEV 


DC 


H f G T 


LOAD SUPPORT FUHCTION-DEV. ADDR. 


A241339G 




DC 


XL4'Q f 




A24134QG 


LOCCNT 


DS 


IF 


LOCATION COLTER 


A241341G 


CPADDR 


D5 


IF 


ENTRY POINT TO CONTROL PROGRAM 


A241342Q 


RLADDR 


DS 


IF 


- RELOCATING LOADER 


A241343G 


AJCONS 


BS 


IF 


ADDRESSES OF 1052 UCB, 


A241344Q 


ACONSL 


DS 


IF 


CON SOL AND CHANNEL TABLE 


A241345G 


ACHTAB 


DS 


IF 


IN CONTROL PROGRAM 


A241346G 


ADMP36 


DS 


IF 


ADDR. OF 3GG DUMP PROGRAM 


A2413470 


PWLIST 


EQU 


AD1052 


ADDRESS OF PARAMETER LIST 


A24134SG 

it <£— T Aw t w w 










A241349G 




DS 


GO 




A24135G0 


TRFPSW 


DC 


X'QOOSOQOGGF' 


TRANSFER PSH (GIVE CONTROL TO 


A241351G 




DC 


AL3(0) 


* RELOCATING LOADER). 


A2413520 


STOP5W 


DC 


X f OOGSOQGG* 


STOP PS14= I4AIT BIT ON, INTERRUPTS 


A2413530 




DC 


X'QOGOQQOO* 


* DISABLED (EXCEPT MACHINE CH.) 


A241354G 




EJECT 






A2413550 




A241356G 








* 


A241357G 






DICTIONARY OF 


CONTROL INFORMATIONS * 


A2413589 










A2413590 




A2413&00 




SPACE 






A?4I361G 


DICT 


DC 


ACDICT-2) 


START OF DICTIONARY 


A2413&2Q 




DC 


F'14' 


LENGTH OF DICTIONARY ELEMENT 


A2413&3G 




DC 


A(DICTZ-14) 


END OF DICTIONARY 


A2413&4G 










A241365G 




DC 


CV f 


CONTROL CARD AND PROG. HEADER ID. 


A24I3b&G 




DC 


FLPO* 


ACTION 


A2413670 




DC 


X f 0G f 


TYPE 


A241368Q 




DC 


XW 


MASK 


A241369G 




DC 


AL3CG) 


ADDRESS 


A24137GG 




DC 


CDEV3&0 T 


CONTROL CARD CODE OPERATION 


A241371G 




DC 


FLl f 4 f 


ACTION 


A241372G 




DC 


XW 


TYPE 


A2413730 




DC 


X*6G f 


MASK 


A24I3740 




DC 


AL3CCTLPR) 


ADDRESS 


A241375G 




DC 


C'DEVSUP * 


CONTROL CARD CODE OPERATION 


A241376G 




DC 


FL1 ? 4* 


ACTION 


A2413770 




DC 


X'BG* 


TYPE 


A2413780 




DC 


X f 54 f 


MASK 


A241379G 




DC 


AL3CDEVPR) 


ADDRESS 


A24138G0 




DC 


C'CALL f 


CONTROL CARD CODE OPERATION 


A241381G 




DC 


FLl f 4» 


ACTION 


A241382G 




DC 


X ? 80 f 


TYPE 


A241383G 




DC 


X»11 T 


MASK 


A241384G 




DC 


AL3CCALLPR) 


ADDRESS 


A241385G 




DC 


C'FROGNAME 1 


PROGRAM HEADER OPERATION CODE 


A2413S60 




DC 


FLi f 4 l 


ACTION 


A2413870 




DC 


XW 


TYPE 


A241388G 




DC 


X f 88 f 


MASK 


A2413890 



DC 


AL3CPGNMPR) 


ADDRESS 






A24139G0 


DC 


C* SYSINEND* 


TRAILER RECORD OPERATION CODE 


A241391G 


DC 


FL1'4' 


ACTION 






A241392Q 


DC 


X*80 r 


TYPE 






A241393G 


DC 


X f 00 f 


mask 






A2413940 


DC 


AL3CL0CERR) 


ADDRESS 






A2413950 


DC 


C*X ' 


CTRL CARD 


DATA TYPE (HEXADECIM.) A2413960 


DC 


FLF1& 1 


ACTION 






A241397G 


DC 


X'GQ* 


TYPE 






A24139SQ 


DC 


x*or 


MASK 






A2413990 


DC 


AL3(0) 


ADDRESS 






A2414Q00 


DC 


C'F * 


CTRL CARD 


DATA TYPE 


(DECIMAL) A24149IQ 


DC 


FLl'16* 


ACTIOH 






A2414G2G 


DC 


XW 


TYPE 






A2414G30 


DC 


X f 02 f 


MASK 






A2414G40 


DC 


AL3C0)' 


ADDRESS 






A241405G 


DC 


C'ADDR f 


CTRL CARD 


DATA PREFIX 




A2414060 


DC 


ai f i2 f 


ACTION 






A2414070 


DC 


X'20 f 


TYPE 






A2414080 


DC 


X'OP 


MASK 






A2414090 


DC 


AL3CTEHPM) 


ADDRESS 






A24I4100 


DC 


CUBSIZ f 


CTRL CARD 


DATA PREFIX 




A2414110 


DC 


FLl f 12* 


ACTION 






A2414120 


DC 


X 1 DS T 


TYPE 






A2414130 


DC 


X*Q2* 


rmsK 






A2414140 


DC 


AL3CTBSIZE+2) 


ADDRESS 






A2414150 


DC 


C'1442 ' 


CTRL CARD 


OPERAND 




A24I4160 


DC 


FLl'8 f 


ACTIOH 






A2414170 


DC 


X'40 f 


TYPE 






A2414180 


DC 


X f EO f 


MASK 






A2414190 


DC 


AL3CTEMP) 


ADDRESS 






A241420D 


DC 


C f 2520 » 


CTRL CARD 


OPERAND 




A241421D 


DC 


FLP8* 


ACTIOH 






A241422D 


DC 


X f 40 f 


TYPE 






A24I4230 


DC 


X f EG f 


MASK 






A2414240 


DC 


AL3CTEMP) 


ADDRESS 






A2414250 


DC 


C'2501 f 


CTRL CARD 


OPERAND 




A24I4260 


DC 


FLi f 8 f 


ACTION 






A24 14270 


DC 


X'40 9 


TYPE 






A2414280 


DC 


X f EO* 


MASK 






A2414290 


DC 


AL3CTEMP) 


ADDRESS 






A241430D 


DC 


CU052 f 


CTRL CARD 


OPERAND 




A2414310 


DC 


FLl'8 f 


ACTION 






A2414320 


DC 


X'4G* 


TYPE 






A2414330 


DC 


X%Q' 


MASK 






A241434Q 


DC 


AL3CTEHP) 


ADDRESS 






A2414350 


DC 


C1443 * 


CTRL CARD 


OPERAND 




A2414360 


DC 


FL1 T 8* 


ACTION 






A2414370 


DC 


X^O' 


TYPE 






A2414380 


DC 


X T EO f 


MASK 






A241439D 


DC 


AL3CTEMP) 


ADDRESS 






A2414400 


DC 


C f 2540 • 


CTRL CARD 


OPERAND 




A2414410 


DC 


FLl'8 f 


ACTION 






A2414420 


DC 


X*4Q f 


TYPE 






A241443G 


DC 


X'EO* 


MASK 






A2414440 



TAPTYP 



INPFCT 



DC 


AL3CTEMP) 


ADDRESS 




A2414450 


DC 


C1403 » 


CTRL. CARD 


OPERAND 


A2414460 


DC 


FIVB 1 


ACTION 




A2414470 


DC 


X f 4G* 


TYPE 




A2414450 


DC 


X f E0* 


mask 




A2414490 


DC 


AL3CTEHP) 


ADDRESS 




A24145G0 


DC 


C'2400 f 


CTRL. CARD 


OPERAND 


A2414510 


DC 


FLl'8 f 


ACTION 




A2414520 


DC 


X'4G f 


TYPE 




A2414530 


DC 


XW 


HASK 




A2414540 


DC 


AL3CTEMP) 


ADDRESS 




A2414550 


DC 


C'2311 * 


CTRL. CARD 


OPERAND 


A2414560 


DC 


FLl'8* 


ACTION 




A2414570 


DC 


X V 4Q T 


TYPE 




A2414580 


DC 


X f 80* 


HASK 




A2414590 


DC 


AL3CTEHP) 


ADDRESS 




A2414600 


DC 


CVTRACK f 


CTRL. CARD 


HAGMETIC TAPE FORMAT 


A24I461G 


DC 


Rl'28' 


ACTION 




A2414620 


DC 


X f 0Q* 


TYPE 




A2414630 


DC 


X'OI* 


HASK 




A2414840 


DC 


AL3CTEMP+6) 


ADDRESS 




A2414G50 


DC 


C'DATCVR f 


CTRL. CARD 


MAGNETIC TAPE FEATURE 


A2414660 


DC 


FLI f 28 f 


ACTION 




A2414670 


DC 


X f OO f 


TYPE 




A24I4680 


DC 


X'02 f 


MASK 




A241469G 


DC 


AL3tTEHP*£) 


ADDRESS 




A24147QG 


DC 


C9TRACK f 


CTRL. CARD 


MAGNETIC TAPE FORMAT 


A2414710 


DC 


FLl f 28 f 


ACTION 




A2414720 


DC 


X'GO* 


TYPE 




A2414730 


DC 


XW 


HASK 




A24I4740 


DC 


AL3CTEHPH) 


ADDRESS 




A2414750 


DC 


C'COLBIN * 


CTRL. CARD 


CRD READER-PCH FEATURE A2414760 


DC 


FLl'28* 


ACTION 




A2414770 


DC 


X'OG' 


TYPE 




A2414780 


DC 


X f OI f 


HASK 




A241479D 


DC 


AL3(TEMP*6) 


ADDRESS 




A2414S00 


DC 


C132BAR * 


CTRL. CARD 


PRINTER FEATURE 


A24 14810 


DC 


FLl f 28 f 


ACTION 




A24 14620 


DC 


X f 00' 


TYPE 




A2414830 


DC 


X'OP 


HASK 




A24I4840 


DC 


AL3CTEMP+6) 


ADDRESS 




A2414850 


DC 


CI44BAR f 


CTRL. CARD 


PRINTER FEATURE 


A2414860 


DC 


FL1 ? 28' 


ACTION 




A2414370 


DC 


X'OO' 


TYPE 




A24I4800 


DC 


X'OP 


HASK 




A2414890 


DC 


AL3CTEMPH,) 


ADDRESS 




A241490Q 


DC 


C'CRDIMG f 


CTRL. CARD 


CRD READER-PCH FEATURE A2414910 


DC 


FLl f 28» 


ACTION 




A2414920 


DC 


XW 


TYPE 




A2414930 


DC 


X'QP 


HASK 




A2414940 


DC 


AL3CTEMP+6) 


ADDRESS 




A2414950 


DC 


CI » 


CTRL CARD 


SUPPORT FUNCTION TYPE 


A24149&0 


DC 


FLl'28 f 


ACTION 




A2414970 


DC 


XW 


TYPE 




A2414930 


DC 


X*10 f 


HASK 




A2414990 



smsYs 



SIHIN 
SIHOUT 



SIMOU 
TYPHRT 



LIST 

PGM 



DC 


AL3CTEMP+G) 


ADDRESS 




A2415GGG 


DC 


CO f 


CTRL. CARD 


SUPPORT FUNCTION TYPE 


A2415G1G 


DC 


FLl f 28 f 


ACTION 




A2415020 


DC 


XW 


TYPE 




A2415G3G 


DC 


X f OO f 


BASK 




A2415G40 


DC 


AL3CTEHP+6) 


ADDRESS 




A2415050 


DC 


C f 200 f 


CTRL. CARD 


SUP. FCT. TAPE DENSITY 


A2415G6G 


DC 


FLi'28* 


ACTION 




A2415G70 


DC 


X*GG* 


TYPE 




A2415G30 


DC 


X f G2* 


BASK 




A2415090 


DC 


AL3(TEHP+6) 


ADDRESS 




A24151Q0 


DC 


C f 556 f 


CTRL. CARD 


SUP. FCT. TAPE DENSITY 


A24151I0 


DC 


FL1'28< 


ACTION 




A24I512G 


DC 


X'OO f 


TYPE 




A241513G 


DC 


X*Q5 f 


BASK 




A2415140 


DC 


AL3(TEHP*6) 


ADDRESS 




A2415150 


DC 


C8GG f 


CTRL. CARD 


SUP. FCT. TAPE DENSITY 


A24151&G 


DC 


FLl f 26 f 


ACTION 




A2415170 


DC 


XW 


TYPE 




A2415160 


DC 


XW 


MASK 




A241519G 


DC 


AL3(TEHP+6) 


ADDRESS 




A241520G 


DC 


C f SIH25YS f 


* CTRL. CARD SUP. FCT. SYS TEH INPUT 


A241521Q 


DC 


FLI f 32' 


ACTION 




A241522G 


DC 


X f lG f 


TYPE 




A241523G 


DC 


X T 21 f 


MASK 




A241524G 


DC 


AL3(TEMPH) 


ADDRESS 




A241525G 


DC 


C*SIH2FRNT f 


* CTRL. CARD SUP. FCT. SYS TEH OUTP. 


A24152GG 


DC 


FLl l 32 f 


ACTION 




A241527G 


DC 


X f 10 f 


TYPE 




A2415280 


DC 


X f ll' 


MASK 




A241529G 


DC 


AL3(TEHP*4) 


ADDRESS 




A24153GG 


DC 


C'TYPHRT * 


CTRL. CARD 


OPERAND (ASSIGN 1052) 


A2415310 


DC 


FLV3&* 


ACTION 




A2415320 


DC 


X T OG f 


TYPE 




A2415330 


DC 


XW 


KASK 




A2415340 


DC 


AL3(TEHP+4) 


ADDRESS 




A2415350 


DC 


CINIT f 


CTRL. CARD 


OPERAND (CALL EDIT) 


A2415360 


DC 


FLl*12 f 


ACTION 




A2415370 


DC 


X f GG T 


TYPE 




A241538G 


DC 


XW 


HASK 




A241539G 


DC 


AL3CEDIT) 


ADDRESS 




A2415400 


DC 


C 'PUNCH f 


CTRL. CARD 


OPERAND (PUNCH OPTION) 


A2415410 


DC 


FLI'28 f 


ACTION 




A241542G 


DC 


XW 


TYPE 




A2415430 


DC 


X f FQ f 


HASK 




A2415440 


DC 


AL3CCALLP3U) 


ADDRESS 




A241545G 


DC 


C'LIST • 


CTRL. CARD 


OPERAND (LOADING HES.) 


A24I546Q 


DC 


FLl«28 f 


ACTION 




A241547G 


DC 


X'OO' 


TYPE 




A2415480 


DC 


XW 


HASK 




A241549G 


DC 


AL3(TBSI2E) 


ADDRESS 




A24155GG 


DC 


C f 1 


CTRL. CARD 


PROGRAH CALLED (NAME) 


A241S51G 


DC 


FL1W 


ACTION 




A241552G 


DC 


X f 8G' 


TYPE 




A2415530 


DC 


XW 


HASK 




A241554G 



DICTZ 



WKAREA 
TEHP 

INFTYP 
CRDTYP 
CPDTYP 
LABLSI4 
CARDSW 
REPLSW 

ERRSW 

HE55U 

LABFCT 

ERR8IT 

HESBIT 



DC 
DC 
DC 
DC 
DC 
DC 

D5 
D5 

DC 
DC 
DC 
DC 
DC 
DC 

EQU 
EQU 
EQU 
EQU 
EQU 
END 



AL3(TEMP*4) 

FLI'20 f 

X'lG' 

X'Ol' 

AL3CTEMPH) 

ID 

2D 

A(0) 
A<0) 

x'oo* 
x'oo' 
x'oo' 

X'03' 

REPLSW 
REPLSW 
X'iO* 
X f 10 f 
X'29' 
INIT 



ADDRESS 

CTRL. CARD DATA (HEX. , DEC. , CHAR. ) 

ACTION 
TYPE 
MASK 
ADDRESS 

WORKING AREA 

SAVE AREA FOR CONTROL INFORMAL 
EXTRACTED FROM CONTROL CARD 

BIT 7-SWITCH 
BIT 6-SWITCH 
BIT 3-SUITCH 
BIT 2-SWITCH 



'WAIT FOR EXT. INT. * 
'WAIT FOR INP.CMD.' 
'CARD ERR. DETECTED* 
"MESSAGE 2 TO 8' 



RELLDR 



TITLE 'RELOCATING LOADER FOR CUMelT SYSTEMS SMJESTSKS' 
START 28048 * 
USING LALPHA-1Q28 ,LBAZRG * 
SPACE 2 



RELOCATING LOADER PROGRAM 
FOR 

IBM SYSTEM/360 SIMULATOR FOR THE IBM 1620 



STORAGE LOCATIONS * 



THE RELOCATING LOADER IS DESIGNED TO = 

1. RELOCATE AND LOAD ASSEMBLED PROGRAMS INTO 
OTHER THAN THOSE ASSIGNED BY THE ASSEMBLER. 

2. PERMITS CHANGES WITHIN THE ASSEMBLED PROGRAMS AT LOAD TIME. 
3- PROVIDE LINKAGE BETWEEN SEPARATELY ASSEMBLED PROGRAMS. 

4. REEVALUATE ADDRESS CONSTANTS USED BY THE ASSEMBLED PROGRAMS. 

5. GENERATE, IF NEED BE, FROM PROGRAM LOADED, PROGRAM IN A FORM 
SUITABLE FOR LOADING WITH THE SYSTEM/360 IPL PROCEDURE. 



THE VERSION OF RELOCATING LOADER PROGRAM SUPPLIED BY IBM OCCUPIES 
HIGH STORAGE LOCATIONS AND LOADS INTO MAIN STORAGE IN FRONT OF 
ITS OWN AREA. TO MODIFY THE LOADER TO ACCOMODATE LARGER SYSTEMS, 
THE USER MUST RE-ASSEMBLY THE RELOCATING LOADER PROGRAM AT THE 
LOCATION DESIRED. 



A241555G 
A2415569 
A2415570 
A2415S80 
A2415590 
A2415600 
AZ415610 
A2415620 
A241563G 
A24I5640 
A2415650 
A2415660 
A2415670 
A2415680 
A2415690 
A241570Q 
A24I5710 
A2415720 
A2415730 
A2415740 
A2415750 
A2415760 
A2415770 

A25QG020 
A25G0030 
A2500049 
A2500050 
A25G0060 
A25G0070 
A250005D 
A2500G90 
A250G100 
A25GG110 
A2500120 
A250013G 
A25QGI40 
A2500150 
A2500160 
A25G0170 
A2500180 
A250019D 
A2500200 
A25GG210 
A25 00220 
A2509230 
A25GQ240 
A25G0250 
A2500260 
A25GG270 
A25G028G 
A2500290 
A2500300 
A25G03I0 
A25GG320 



* THE LOADER PROCESSES THE DECK FOR A PROGRAM MODULE IN 3 STAGES= * A25 00330 

* STAGE A EXTERNAL SYMBOL DICTIONARY (ESD) CARDS. * A2500340 

* STAGE B TEXT (TXT) CARDS. * A250Q350 

* STAGE C REPLACE (REP) AND * A2500360 

* RELOCATION LIST DICTIONARY (RLD) CARDS. * A25G0370 

* ALL STAGE A CARDS MUST PRECEDE STAGE 8 CARDS AND ALL STAGE B * A2500380 

* CARDS MUST PRECEDE STAGE C CARDS. EACH PROGRAM MODULE IS TERMI- * A25 00390 

* NATED BY A LOADER END (END) CARD GENERATED BY THE ASSEMBLER. * A25G040G 

* * A25Q0410 

* .../...* A2500420 

* * A2500430 
^^^^*^^*->t^^^^^^^^^*^*^^^^^ A25 0 044 0 

EJECT A2500450 

* * A25GG470 

* LOADING TABLES * A2500480 

* * A2500490 

* * A2500500 

* THE FOLLOWING THREE TABLES ARE FORMED AND USED BY THE LOADER = * A2500510 

* * A2500520 

* 1. EXTERNAL SYMBOL DICTIONARY (LDDIC) * A25G0530 

* * A25GG540 

* THIS TABLE CONTAINS ONE ENTRY OF THREE FULLNORDS FOR EACH TERM IN * A25G0550 

* AN EXTERNAL SYMBOL DICTIONARY CARD = * A2500560 

* CONTROL SECTION NAME (TERM TYPE I), * A2500570 

* ENTRY POINT (TERM TYPE 2)> * A250058G 

* EXTERNAL SYMBOL (TERM TYPE 3). * A25G0590 

* * A2500600 

* BYTES 0-5 CONTAIN THE CONTROL SECTION NAME OR * A25GQ610 

* THE ENTRY POINT NAME OR * A2500620 

* THE EXTERNAL SYMBOL NAME. * A2500630 

* BYTES 6-6 - THE ORIGIN OF THE CONTROL SECTION AS * A2500640 

* DEFINED DURING LOADING (TYPE 1) OR * A25 00650 

* THE ADDRESS OF THE ENTRY POINT AS * A25 00660 

* DEFINED DURING LOADING (TYPE 2) OR * A25 00670 

* 24 ZEROS (TYPE 3). * A2500680 

* BYTES 9-10 - THE NUMBER OF BYTES IN THE CONTROL SEC- * A25 00690 

* TION (TYPE 1) OR * A25 00700 

* THE NUMBER (ESID) ASSIGNED TO THE CON- * A2500710 

* TROL SECTION IN WHICH THE ENTRY POINT * A25 00720 

* OCCURS (TYPE 2) OR * A25 00730 

* 16 ZEROS (TYPE 3). * A25G0740 

* BYTE 11 CONTAINS THE TYPE OF ESD TERM (TYPES 1,2 AND 3) * A2500750 

* * A2500760 

* STARTING ADDRESS OF LDDIC DICTIONARY IS CALLED LDDICA * A25 00770 

* CURRENT - - LDDICZ * A25 00780 

* INITIALLY THE DICTIONARY IS EMPTY AND LDDICA= LDDICZ * A2500790 

* * A2500S00 

* 2. EXTERNAL SYMBOL REFERENCE TABLE (LDREF) * A2500810 

* * A2500820 

* THIS TABLE CONTAINS ONE ENTRY OF TWO FULU40RDS FOR EACH TERM > IN * A2500830 

* AN ESD CARD* OF THE FOLLOWING TYPES= * A25G0840 

* CONTROL SECTION NAME (TERM TYPE 1) * A2500G50 

* EXTERNAL SYMBOL (TERM TYPE 3) * A2500860 

* * A25 00870 



BYTES 0-3 CONTAIN 



BYTE 
BYTES 



4 

5-6 



THE ADDRESS OF THE CORRESPONDING ENTRY 
IN THE EXTERNAL SYMBOL DICTIONARY 
CONTAINS THE TYPE OF ESD TERM (TYPES 1 AND 3) 
THE ADDRESS OF THE CONTROL SECTION 
DEFINED BY THE ASSEMBLER (TYPE 1) 
24 ZEROS (TYPE 3). 



CONTAIN 



AS 

OR 



if v\f \ftf>f >>\f \f 



EJECT 



STARTING ADDRESS OF LDREF TABLE IS CALLED LDREFA 

CURRENT - - LDREFZ 

WHEN LOADING BEGINS THIS TABLE IS EMPTY AND LDREFA= LDREFZ. THE 

LDREF TABLE IS CLEARED AT THE END OF EACH MODULE, I.E. EACH TIME 

A LOAD END (END) CARD IS ENCOUNTERED. 

3. RELOCATION LIST (LDLST) 

THE RELOCATION LIST CONTAINS ONE ENTRY OF TWO FULLWORDS FOR EACH 
ITEM FROM RELOCATION LIST DICTIONARY (RLD) CARD WHICH REFERS TO 
A CONTROL SECTION NOT YET RELOCATED. 

BYTES 0-1 CONTAIN THE POSITION HEADER= NUMBER (ESID) OF 

THE CONTROL SECTION WHICH THE CONSTANT 
ADDRESS BELONGS TO. 

BYTES 2-3 - THE RELOCATION HEADER = NUMBER (ESID) OF 

THE CONTROL SECTION WHICH THE SYMBOL 
APPEARING IN THE CONSTANT BELONGS TO 

BYTES 4 CONTAINS THE SIZE, COMPLEMENT AND CONTINUATION 

FLAGS. 

BYTES 5-7 CONTAIN THE RELOCATED ADDRESS OF THE CONSTANT 

ADDRESS. 



STARTING ADDRESS OF LDLST LIST IS CALLED 
CURRENT - - 
INITIALLY THE LIST IS EMPTY AND LDLSTA= 
LOADER ENDS A LOADING PROCESS (END CARD) 



LDLSTA 
LDLSTZ 

LDL5TZ. EACH TIME THE 
IT SCANS THE LDLST LIST 



AND FINISHES PROCESSING OF CONSTANT ADDRESSES WHICH REFER TO SYM- 
BOLS DEFINED IN THE PROGRAM MODULE LOADED. 

WHEN THE SELECTIVE LOADING FUNCTION IS USED THE RELOCATING LOADER 
CREATES A FOURTH TABLE (LDOPT). EACH TABLE ELEMENT (2 FULLWORDS) 
CONTAINS THE NAME OF A CONTROL SECTION THAT MUST NOT BE LOADED. 
THESE CONTROL SECTION NAMES FORM A PART OF THE PARAMETER LIST 
FROM THE INITIALIZATION PROGRAM. 

BYTES 0-5 CONTAIN THE CONTROL SECTION NAME 
BYTES 6-7 ARE UNUSED 

STARTING ADDRESS OF LDOPT TABLE IS CALLED LDOPTA 



* A2500880 

* A2500S9Q 

* A2500900 

* A25Q0910 

* A2500920 

* A250093Q 

* A25GG940 

* A2500950 

* A2500960 
A250G970 
A25 00980 
A250G990 

* A2501000 

* A2501010 

* A2501020 

* A2501030 

* A25G1G40 

* A2501050 

* A2501060 

* A2501070 

* A2501080 

* A2501090 

* A2501I00 

* A2501110 

* A2501120 

* A2501130 

* A25GI140 

* A2501150 

* A2501160 

* A2501170 

* A2501180 

* A2501190 

* A2501200 

* A2501210 

* A250122G 

* A2501230 

* A25GI240 

* A2501250 

* A250126Q 

* A2501270 

* A25 01280 

* A2501290 

* A2501300 

* A2501310 

* A2501320 

* A2501330 

* A2501340 

* A2501350 

* A25013G0 

* A2501370 

* A2501380 

* A2501390 

* A25C1400 

* A2501410 

* A25 01420 



* CURRENT - - LDOPTZ 

* INITIALLY THE TABLE IS EMPTY AND LDOPTA= LDOPTZ 

EJECT 



TABLES HAPPING 



THE ABOVE FOUR TABLES ARE STORE AS SHOW BELOW, IN FRONT OF THE 

RELOCATING LOADER PROGRAM* THEY OVERLAY THE SELF LOADING PROGRAM 

GENERATOR AND INITIALIZATION ROUTINES IF THE GENERATOR FUNCTION 
IS NOT TO BE USED. 



L 
D 
L 
S 
T 
Z 



L 

D 
R 
E 
F 
A 



L 
D 
R 
E 
F 
Z 



L 

D 
B 
I 
C 
Z 



LL 

DD 
DO 
IP 
CT 

AZ 



L 
D 
0 
P 
T 
A 



+ RELOCATION 
* LIST 



+ REFERENCE 
* TABLE 



DICTIONARY 



+ * + 

+ LDOPT + LOADER + 

+ TABLE * PROGR. + 

f + * 



LOADING TABLE BLOCK 



THE LDOPT TABLE IS FILLED BACKWARD S> THAT IS, THE 1ST. ELEMENT IS 
CONTIGUOUS TO THE RELOCATING LOADER PROGRAM, AND THE TABLE IS EX- 
TENDED TO THE FRONT AS NEW ELEMENTS ARE ADDED. LDOPT IS CREATED 
AT THE TIME THE LOADER IS INITIALIZED AND REMAINS UNCHANGED DU- 
RING LOADING PROCESS. 

THE LOADING TABLE BLOCK IS CONTIGUOUS TO THE LDOPT TABLE. THE TA- 
BLE BLOCK LENGTH IS ONE ITEM OF THE PARAMETER LIST FROM THE INI- 
TIALIZATION PROGRAM. INITIALLY LDL5TA= LDLSTZ, 

LDDICA= LDDICZ = LDREFA = LDREFZ. 

THE ABOVE FIGURE REPRESENTS THE TABLES DURING THE LOADING. THE 
POSITION OF REFERENCE TABLE IS FLEXIBLE AND IS ADJUSTED TO MAIN- 
TAIN THE TWO AREA OF UNUSED TABLE SPACE. ELEMENTS ARE ENTERED IN 
RELOCATION LIST AND REFERENCE TABLE FROM LEFT TO RIGTH BUT 
FROM RIGHT TO LEFT IN THE DICTIONARY. 



THE RELOCATING LOADER IS FUNCTIONALLY DIVISIBLE INTO 

- SELF LOADING GENERATOR 

- INPUT/OUTPUT OPERATIONS 

- CARD PROCESSING 



3 PARTS= 



A250143G 
A25014A0 
A2501450 
A25Q1%0 
A2501*?7G 
A250I4S0 
A250149Q 
A2501500 
A2591519 
A250152G 
A25G1530 
A2501540 
A2501550 
A250I560 
A25G1570 
A2501580 
A2501590 
A2501G00 
A25G1610 
A2501620 
A250163Q 
A2501640 
A2501650 
A2501660 
A250ib70 
A2501680 
A2501690 
A25QI700 
A25GI710 
A2501720 
A2501730 
A25G173Q 
A25Q1750 
A25017G0 

* A2501770 

* A25 01780 
A2501790 
A2501800 
A2501810 
A250182D 
A2501830 
A2501840 
A2501850 
A2501860 
A2501870 
A25 01880 
A25Q189Q 
A2501900 
A2501910 
A2501920 
A2501930 
A2501949 
A2501950 
A25019G0 
A2501970 



THE RELOCATING LOADER PROGRAM IS DIVISED INTO SECTIONS WHICH ARE 
CLEARLY HARKED AND EXPLAINED ON THE LOADER ASSEMBLY LISTING. THE 
SECTIONS CALLED 'ROUTINES' THROUGHOUT THIS LISTING ARE LOGICALLY 
DISTINCT ENTITIES. THE SECTIONS CALLED 'SUBROUTINES* ARE AVAILA- 
BLE SUCH AS TO THE ROUTINES. EX= HEXADECIMAL-TO-BINARY SUBROUTINE 



EJECT 

v v v v v v v v v y. y y y v y y y y y y y y y y v y y y y y y y y y y y y y y y y y y y y y y y » y y y y y y y vyvyywj'vywyyy 



SELF-LOADING PROGRAM GENERATOR ROUTINE 



NAMEs LDEDIT 



IT IS ENTERED 
THE FOLLOWING 



THIS ROUTINE HAS ONE ENTRY POINT, LOCATION LDEDIT. 

AT THE END OF THE LOADING PROCESS WHICH PLACES 

OBJECT PROGRAMS IN STORAGE = CONTROL PROGRAM, 

I/O SUPPORT PACKAGE PROGRAM, 
PROGRAM JUST LOADED. 

THE RELOCATING LOADER DECLARES THE FOLLOWING INFORMATIONS TO 

LDEDIT = 

1* THE LOWEST STORAGE ADDRESS OCCUPIED BY THE CONTROL PROGRAM 
(LOCATION LBAREAK 

2. THE HIGHEST STORAGE ADDRESS PLUS 1 OCCUPIED BY THE PROGRAM 
LOADED (LOCATION LOCCTR). 

3. THE PROGRAM INITIAL PSW (LOCATION LDTPSW). 

THE OUTPUT DEVICE (SYMBOLIC NAME AND TYPE) WAS PROVIDED BY MEANS 
OF 2 CONTROL CARDS, DEVSUP AND CALL -SEE INITIALIZATION PROGRAM-. 

SEQUENCE OF OPERATIONS 

1. THE ROUTINE FIRST ESTABLISHES A PSN IMAGE FOR THE FIRST IPL 
CARD OR RECORD . 

2. THE ROUTINE CREATES AN IMAGE OF REGENERATED PROGRAM 

- IT COPIES MAIN STORAGE BETWEEN LOCATIONS (LDAREA) AND 
(LOCCTR)-l INTO MAIN STORAGE BEYOND LOCATION (LOCCTR). 

- IT ESTABLISHES SEVERAL CONSTANTS FOR A NEW IBM 1052 
PRINTER KEYBOARD IF THE 1052 USED UP TO NOW IS NOT THE 
SAME AS THAT TO BE USED AFTERWARDS. 

IF THE OUTPUT DEVICE IS A CARD PUNCH THE ROUTINE PERFORMS OPERA- 
RATION 4 . IF IT IS A 2400 MAGNETIC TAPE UNIT, 

3. THE ROUTINE ISSUES A WRITE REQUEST FOR= 

- ONE 24 -BYTE RECORD CONTAINING THE IPL RECORD (IPLPSW , 
IPLCCW). 

- ONE RECORD CONTAINING THE REGENERATED PROGRAMS, THAT 
IS, THE CONTENTS OF (LOCCTR) THROUGH 2X( LOCCTR). 

AND COMPLETES PROCESSING BY PERFORMING OPERATION 5. 

4. THE ROUTINE ISSUES A WRITE REQUEST FOR= 

- ONE 24 -BYTE CARD CONTAINING THE IPL RECORD (IPLPSW , 
IPLCCW f S). 

- ONE 56-BYTE CARD CONTAINING A READ ROUTINE (7 CCW'S 
CHAINED). 

- A SERIES OF BO-BYTE CARDSCTXT CARD FORMAT), CONTAINING 
THE REGENERATED PROGRAM. THESE CARDS WILL BE SEQUENCED 
IN COLUMNS 77-80 AND IDENTIFIED IN COLUMNS 73-76 WITH 



A2501980 
A2501990 
A2502000 
A2502010 
A2502020 
A2502030 
A2502040 
A2502050 
A2502060 
A2502070 
A2502060 
A2502090 
A2502100 
A2502110 
A2502120 
A2502130 
A2502140 
A2502150 
A2502160 
A25 02170 
A2502180 
A2502190 
A2502200 
A2502210 
A2502220 
A2502230 
A25 02240 
A25 02250 
A25022GO 
A2502270 
A2502280 
A2502290 
A2502300 
A2502310 
A2502320 
A2502330 
A25G2340 
A2502350 
A2502360 
A2502370 
A2502380 
A25 02390 
A25024QQ 
A250241G 
A250242G 
A25 02430 
A25 02440 
A2502450 
A2502460 
A25 02470 
A2502480 
A2502490 
A2502500 
A2502510 
A2502520 



THE FIRST 4 CHARACTERS OF THE OUTPUT DEVICE NAME. 
- ONE END CARD WHICH HILL CAUSE THE READ3ND PROCESS 
TO BE TERMINATED. 
5. PROCESSING IS COMPLETED AND TERMINATES IN THE HAIT STATE . 



5f 

\r .v v \r v .if vvv vvv vvv vvvvvivmrm? vvmi 

EJECT 



EXITS 

THIS ROUTINE HAS NO EXITS > AS SUCH. PROCESSING TERMINATES IN 
OF im HAIT STATES. THESE WAIT STATES, AND THEIR ASSOCIATED 
SOLE MESSAGES, ARE= 

NORMAL END OF JOB f END OF INITIALIZATION 1 

INSUFFICIENT SPACE BEYOND f INITIALIZATION ERROR, CANNOT 

LOCATION (LOCCTR) CONTINUE 1 



ONE 
CON- 



SPACE 

LDEDIT MVC IPLPSH(6),LDTPSH 

LM LHK1RG , LHK3RG , LDAREA 

LM LDCONT,LDFINL,LDAREA 

AR LDFINL,LDCONT 

BCTR LHK3RG,0 

LDEDIA BXH LHK1RG »LNK2RG ,LDEDIC 

EX LHK2RG,LBEDIB 

AR LDCONT,U4K2RG 

AR LDFINL,LHK2RG 

C LBFINL,LEOMAX 

BC 12, LDEDIA 

LA LEXIT2,MSDG03 

BC 15,LDST0PH 

LDEDIB MVC 0(1,LDFINL),0(LDCONT) 

LDEDIC LR LHK1RG,LDC0NT 

BCT LHK2RG, LDEDIA 

LH LHK2RG,LD1G52*2 

LTR LHK2RG,LHK2RG 

BC 8,*+24 

LM LWK2RG , LHK 3RG , LCONSL 

AR LHK2RG,LHK1RG 

AR LRK3RG,LWK1RG 

MVC 1(2 ,LHK3RG ) ,LD1052+2 

MVC l(4,LHK2RG),LD1052+4 

LM LDCONT,LDFINL, LDAREA 

LH LEXIT2>LEDDEV 

LTR LEXIT2,LEXIT2 

BC 8,LDEDI2 

SPACE 

LDEDI1 BAL LEXIT1,LDREH1 

MVC IPLCCH+1(3),LDAREA*1 



SET-UP PSH FOR IPL 1 RECORD 
START AND END ABDR. OF AREA 
OCCUPIED BY PROG. GENERATED 
START ADDR. OF AREA USED TO 
CREATE PROGRAM IMAGE. 
BRANCH TO ADJUST LAST MOVE. 
PLACE PROGR. IN IMAGE AREA. 
UPDATE f FROM f ADDRESS 
AND *TO ? ADDRESS. 
IS ENOUGH ROOM FOR PROGRAM. 
IMAGE. YES, BRANCH - NO, 
PRINT f INITIAL32AT. ERROR f 
AND ENTER THE HAIT STATE. 

ADJUST BYTE COUNT TO MOVE 
LAST BYTES OF PROGRAM. 
DOES THE GENERATED PROGRAM 
USE A 1052 OTHER THAN THAT 
USED HON- NO, BRANCH - YES, 
CALCULATE ADDRESSES OF THO 
ENTRY POINTS TO THE CONTROL 
PROGRAM (IMAGE). 
PLACE 1052 DEVICE ADDRESS 
AND UNIT CONTROL BLOCK ADD. 
RESTORE REGISTERS. 
DETERMINE TYPE OF OUTPUT 
DEVICE. 

CARD PUNCH, BRANCH- 2400TU, 

REMIND MAGNETIC T.U. 

CDA FOR IPL RECORD=ADDRESS, 



A2502530 
A2502540 
A2502550 
A2502560 
A25G2570 
A2502580 
A2502590 
A2502600 
A25G2610 
A2502620 
A2502630 
A2502640 
A25 02650 
A25 02660 
A25 02670 
A2502680 
A2502690 
A2502700 
A2502710 
A25 02720 
A2502730 
A25027^0 
A2502750 
A2502760 
A2502770 
A2502780 
A2502790 
A2502S00 
A2502810 
A25 02820 
A2502830 
A2502840 
A25 02850 
A25 02860 
A25 02870 
A25 02830 
A2502890 
A2502900 
A2502910 
A2502920 
A2502930 
A25029^f0 
A25 02950 
A2502960 
A25 02970 
A2502980 
A2502990 
A2503000 
A25030I0 
A2503020 
A2503030 
A25030S0 
A2503050 
A2503060 
A2503070 



SR LDFINL,LDCONT 

STH LDFINL > IPLCCNH 

HVI IPLCCW*4,X'20 f 

LA LEXIT3»IPLPSM-1 

LA LEXIT2,24 

BAL LEXIT1,LWRITE 

LR LEXIT3,LWK1RG 

AR LEXIT3>LDC0NT 

LH LEXIT2,IPLCCW*6 

BAL LEXIT1>LWRITE 

LH LEXIT2,LEDBEV 

BAL LEXIT1,LDREW1 

BC 15,LDEDI8 
SPACE 

LDEDI2 LA LWK1RG > 1 ( LNK1RG ) 

ST LWK1RG>L0CCTR 

TH L0CCTR*3,X'G7 f 

BC 5,LDEDI2 

BAL LEXITI,LDEDID 

HVC IPLCCW+1 (3), LOCCTRf 1 

HVC IPLCCW+9(3)>L0CCTRU 

HVC IPLCW7+K 3 ) >L0CCTR+1 

HVC IPLEND+5 ( 3 ) >L0CCTR+1 

LA LH!<2RG,41(LNK1RG) 

ST LHK2RG,L0CCTR 

HVC IPLCW2*1( 3 ) >L0CCTRU 

LA LMK2RG , 5 ( LWK2RG ) 

ST LWK2RG>L0CCTR 

HVC IPLCW4+1(3),L0CCTR+1 

SR CRDCNT,CRDCNT 

HVC EDBUFF(24),IPLPSW 

BAL LEXIT1,LDEDI9 

HVC EDBUFF(56),IPLCW1 

BAL LEXIT1,LDEDI9 

HVC EDBUFF ( 16 ) > EBCARD 

LR LHK1RG, LDFINL 

AR LWK1RG>LBC0NT 

LDEBI3 ST LDCONT >EBBUFF+4 

LDEDI4 STH LDSTEP >EDBUFF+1Q 

BXLE LDC0NT,LDSTEP,LDEDI6 

L LDC0NT,EDBUFF+4 

BCT LDSTEP,LDEDI4 

BC 15>LBEDI7 

LDEDI5 HVC EDBUFF+16C1),0(LWK1RG) 

LDEDI6 HVI EDBUFF+4>X*40 f 

LR LWK2RG,LDSTEP 

BCTR LWK2RG,0 

EX LWK2RG,LDEBI5 

AR LWK1RG,LDSTEP 

BAL LEXIT1,LBEDI9 

HVI EBBUFFU6>X*4Q' 

HVC EDBUFF+17C55 ) ,EDBUFF+16 

BC 15>LDEDI3 

LBEBI7 HVC EDBUFF ( 24 ) > IPLEND 

BAL LEXIT1,LDEDI9 



COUNT, 

COMMAND FLAG (SLI). 
ADDRESS AND LENGTH OF IPL 
RECORD. - 

ISSUE WRITE REQUEST . 
ADDRESS OF AREA CONTAINING 
PROGRAM REGENERATED AMD 
LENGTH OF THIS RECORD. 
ISSUE WRITE REqUEST. 
TAPE UNIT DEVICE ADDRESS. 
REMIND. 

OPERATION COMPLETED. 

INCREMENT LOCATION COUNTER 
BY 1 AND ADJUST IT TO A 
DOUBLE WORD BOUNDARY. 

CLEAR CARD READER-PUNCH 
SET LOADING ADDR. OF READ 
ROUTINE IN IPL RECORD. 
ESTABLISH ONE ADDRESS IN 
THE END RECORD AND SEVERAL 
ADDR. IN THE READ ROUTINE. 
THIS ROUTINE IS IN THE 2ND 
RECORD WHICH WILL BE LOADED 
FROM THE IPL PROCEDURE. 



RESET CARD COUNTING REG. 
PLACE IPL RECORD IN OUTPUT 
BUFFER AND ISSUE WRITE REQ. 
PLACE READ RTNE. RECORD IN 
OUTPUT BUFFER AND WRITE IT. 
SET UP OUTPUT BUFFER TO 
WRITE TXT CARD. CALCULATE 
ADDR. OF PROG. IMAGE AREA. 
LOADING ADDRESS AND LENGTH 
OF TEXT PUNCHED IN CARD, 
LAST TXT CARD. NO, BRANCH. 
YES, ADJUST THE BYTE COUNT 
FOR THE LAST TXT CARD. 
ENTIRE PROGRAM REGENERATED. 

SET BLANK CHAR. IN COL. 5. 



TO OUTPUT BUFFER AND GO TO 
WRITE AN 60-BYTE TXT CARD . 
CLEAR OUTPUT BUFFER (TEXT 
PART) AND RESUME GENERATING 
PROCESS. 

PLACE END RECORD IN OUTPUT 
BUFFER AND GO TO WRITE IT. 



A2503060 
A2503090 
A2503100 
A2503I1G 
A250312G 
A250313G 
A25G314G 
A2503150 
A2503160 
A2503170 
A2503160 
A2503190 
A2503200 
A2503210 
A2503220 
A2503230 
A2503240 
A2503250 
A2503260 
A2503270 
A2503280 
A25 03290 
A25D3300 
A25G331G 
A250332D 
A2503330 
A250334Q 
A2503350 
A25Q3360 
A2503370 
A2503380 
A250339Q 
A2503400 
A2503410 
A25G3420 
A2503430 
A25G344Q 
A2503450 
A2503460 
A2503470 
A250345Q 
A2503490 
A2503500 
A2503510 
A2503520 
A2503530 
A250354Q 
A2503S50 
A25G3560 
A2503570 
A250358Q 
A2503590 
A2503600 
A25036I0 
A2503620 





BAL 


LEXIT1, LDEDID 


EJECT LAST CARD PUNCHED 




SPACE 






LDEDI8 


LA 


LEXIT2>MSDG02 


OPERATION COMPLETED. PRINT 




BC 


15,LDST0P+4 


'END OF INIT.' AND STOP. 




EJECT 






LDEDID 


HVI 


EDBUFF,X T 40 f 
EDBUFF+1(79),EDBUFF 


CLEAR OUTPUT BUFFER 




HVC 






BC 


15, LDEDIE 


GO TO PUNCH A BLANK CARD 




SPACE 






LDEDI9 


BAL 


LEXIT3>LBDEC1 


NUHBER CARD (COL. 77-60). 




HVC 


EDBUFF+72(4),WRTSUP 


IDENTIFY CARD (COL.73-76). 


LDEDIE 


LA 


LEXIT2,80 


LENGTH AND 




LA 


LEXIT3>HRTBUF 


ADDRESS OF OUTPUT BUFFER. 




SPACE 


2 





y* X , v >c PC rf yi 

* NRITE SUBROUTINE TO GENERATE SELF-LOADING PROGRAM * 

* * 

* NAME= LDEDIT * 
& * 

* CALLING SEQUENCE LA LEXIT3, OUTPUT BUFFER ADDRESS * 

* LA LEXIT2, - RECORD LENGTH * 

* BAL LEXIT1,LNRITE * 

* * 

* THIS ROUTINE PUNCHES ONE CARD OR WRITES ONE RECORD ON MAGNETIC * 

* TAPE AND TESTS THE STATUS SET BY THE I/O PACKAGE PROGRAM IN * 

* FIRST LOCATION OF THE OUTPUT BUFFER. * 

* IF THE OPERATION HAS BEEN SUCCESSFULL, CONTROL RETURN TO THE CAL- * 

* LER. IF NOT THE CONDITION IS BEYOND CORRECTION AND GENERATING * 

* PROCESS STOPS. * 

* * 

* NOTE- SEE 14RITE MESSAGE ROUTINE, NOTE 1. * 





SPACE 






LHRITE 


ST 


LEXIT3,LNRIT2 


ADDRESS OF OUTPUT BUFFER. 




STH 


LEXIT2,LNRIT1 


LENGTH OF RECORD. 




CNOP 


0,4 


I/O REQUEST. 




SVC 


18 


* (WRITE) 


NRTSUP 


DC 


C f 


* OUTPUT SUPPORT FUNCTION 


LHRIT1 


DC 


FL2'G» 


* - RECORD LENGTH 


LHRIT2 


DC 


ACQ) 


* - BUFFER ADDRESS 




TM 


0(LEXIT3),X'G7 f 


* ERROR TYPE 




BCR 


1,LEXIT1 


* NORMAL RETURN 




TH 


0(LEXIT3),X'03* 


* EXCEPTIONAL RETURN 




BCR 


l,LEXITi 


EOB, RETURN TO CALLER. 




BC 


15 ,LDI4AIT 


CATASTROPHIC ERROR, STOP. 




SPACE 


2 





96 

■V , V V . V .V ,V M 



SPACE 



CONSTANTS AREA * 



IPL RECORD 



A2503630 
A2503640 
A25 03650 
A2503&60 
A25G3670 
A25G3680 
A25G3690 
A2503700 
A2503710 
A2503720 
A2503730 
A25G3740 
A2503750 
A25037b0 
A2503770 
A250378D 
A25 03790 
A2503800 
A2503810 
A2503820 
A2503830 
A250384G 
A2503850 
A2503360 
A2503870 
A25 03880 
A2503890 
A2503900 
A2503910 
A2503920 
A2503930 
A2503940 
A25 03950 
A2503960 
A2503970 
A25039S0 
A2503990 
A2504000 
A2504010 
A25G4Q20 
A2504030 
A25G4040 
A25G4G50 
A2504060 
A2504070 
A25 04080 
A25Q4090 
A2504IG0 
A2504110 
A25G4120 
A25G413D 
A2504140 
A250415Q 
A25G4160 
A25G4170 



IPLPSH 


D5 


D 




IPL PSH, 




A2504180 


IFLCCH 


ecu 


X'02 f >*,X f 60 f ,56 




CCH TO READ 2ND RECORD, 


A25G419G 




CCH 


X'03',*,XW,0 




TIC TO READ ROUTINE (CARDS) 


A25G4200 




EJECT 










A250421G 










READ ROUTINE (CARD VERSION 


A25G4220 










ONLY) IN 2ND RECORD . 


A250423G 


IPLCH1 


ecu 


X f Q2',*,X'B0S5 




SKIP 5 BYTES (COL. 1-5 ) 


A25G4240 


IPLCH2 


CCH 


X'02 f ,*,XW,3 




READ 3 - 


(LOADING ADD.) 


A25G4250 


IPLCH3 


CCH 


X*02%*,X<B0 f ,2 




SKIP 2 - 


(COL. 9-10) 


A250426Q 


IPLCH4 


CCH 


X*02 f >*,X«AO f >2 




READ 2 - 


(TEXT LENGTH) 


A25G4270 


IPLCH5 


CCH 


X f 02 f ,*,X'B0 f ,4 




SKIP 4 - 


(COL. 13-16) 


A25G4280 


IPLCH6 


CCH 


X'02',*,X'60 f >0 




READ N - 


(LOAD TEXT) 


A2504290 


IFLCH7 


CCH 


X f G3S*»X f 00S0 




TIC TO IPLCH1. 


A250430G 




SPACE 










A2504310 










TEXT CARD 




A25G4320 


EDCARB 


DC 


X'02 f 




COL. 1 


(12-2-9) 


A2504330 




DC 


C f TXT f 




COL. 2-3 


(TXT) 


A2504340 




DC 


A(0) 




COL. 6-8 


(LOADING ADDR.) 


A25 04350 




DC 


C* f 




COL. 9-10 




A25G4360 




DC 


FL2»G ? 




COL. 11-12 


(BYTE COUNT) 


A25G4370 




DC 


C f f 




COL. 13-14 




A2504380 




DC 


X'OOOl* 




COL- 15-16 


(PROGRAM NUMBER) 


A25G4390 




SPACE 










A25G44G0 










END CARD 




A25G4410 


IPLEND 


DC 


X*02 f 




COL. 1 


(12-2-9) 


A25G4420 




DC 


C'END f 




COL. 2-5 


(END ) 


A2504430 




DC 


AL3C0) 




COL. 6-8 


(LOADING ADDR.) 


A2504440 




DC 


C* ' 




COL. 9-10 




A25G4450 




DC 


FL2 T 8* 




COL. 11-12 


(BYTE COUNT) 


A25G4460 




DC 


C f * 




COL. 13-14 




A2504470 




UL 


A T G001 T 




COL. 15-16 


( PROGRAM NUMBER) 


A25 04480 




CCH 


X f 03%*,X f 20 ? ,8 




COL. 17-24 


(TEXT, STOP READ) 


A2504490 




SPACE 










A25G4500 


LD1052 


DC 


A(O) 




UNIT DEVICE, UCB ADDR. OF 


A25G4510 




UL 


A(O) 




1052 USED BY GENERAL PROG. 


A2504520 




SPACE 










A25G4530 


LEDHAX 


DC 


A(LDEDlA-56) 








A25G4540 


2£ > J vr .\t v w\fi 


SPACE 








A2504550 
A25G4560 
A2504570 


















CONSOLE 


MESSAGES 




A2504580 












A25G4590 
A2504600 












SPACE 










A25Q4610 


HSDG02 


DC 


FLl'28 f 




MEANING= NORMAL END OF JOB 


A2504620 




DC 


AL3(*+3) 








A2504630 




DC 


C f AXI2A* 








A2504640 




DC 


C* END OF INITIALI* 








A2504650 




DC 


C'ZATION* 








A2504660 




DC 


X f 15 f 








A25G4670 


HSDG03 


DC 


FLl'43* 




HEANING= JOB TERMINATED, NOT 


A2504680 




DC 


AL3(*+3) 




ENOUGH ROOH BEYOND LOCATION 


A2504690 




DC 


C* AX13H* 




(LOCCTR) 




A2504700 




DC 


C f INITIALIZATION 1 








A25G4710 




DC 


C f ERROR, CANNOT CON f 








A25 04720 



DC V 
DC X' 
EJECT 



TINUE* 
15 f 



LOADER INITIALIZATION ROUTINE 



NAME= LDRIN1 

THIS ROUTINE IS EXECUTED ONCE ONLY DURING ANY PERIOD OF LOADER 
RESIDENCE, AT THE TIME THE LOADER IS FIRST EXECUTED, THE STORAGE 
AREA OCCUPIED BY THIS ROUTINE IS USED AS INPUT/OUTPUT BUFFER DU- 
RING THE LOADING PROCESS. 

THE ROUTINE, FROM THE LIST OF PARAMETERS PREPARED BY THE INITIA- 
LIZATION PROGRAM, DETERMINES^ 

THE LENGTH OF LOADING TABLE BLOCK* 
WHETHER THE PROGRAM IS TO BE REGENERATED 
AFTER LOADING, AND, IF SO, SAVES= 

- THE ADDRESS AND SYMBOLIC NAME OF OUTPUT DEVICE, 

- EVENTUALLY, THE DEVICE AND UNIT CONTROL BLOCK ADDRESSES OF A 

NEW 1052 PRINTER. 

WHETHER THE LOADER NILL PRINT THE LOADING 

CONTROL MESSAGES. 

THE ROUTINE THEN CREATES THE LDOPT TABLE FROM THE SAME PARAMETER 
LIST. 

FINALLY, IT INITIALIZES THE STARTING AND CURRENT ADDRESSES OF THE 
LOADING TABLES. 

THIS ROUTINE IS ENTERED AT THE END OF THE PROGRAM CHECK ROUTINE 
INITIALIZATION AND EXITS TO THE LOADER ENTRIES (LOCATION INIENT). 



LDRIN1 



LDRIN2 



LDRIN3 



SPACE 






USING LALPHA,LBASRG 




LR 


LINKR1,1 


GR.l = PARAMETER LIST REG. 


L 


LINKR2,8(LINKR1) 


IS LENGTH OF LOADING 


LTR 


LINKR2,LINKR2 


* TABLE BLOCK GIVEN 


BC 


8,**8 


NO, BRANCH - YES, 


ST 


L3NKR2,TBSIZE 


SAVE TABLE BLOCK LENGTH 


MVC 


LEDDEV(4),2G(LINKR1) 


ED IT, LOAD DEVICES (ADDR.) 


CLI 


12CLINKRl),X f 40 f 


IS EDIT FUNCTION REQUIRED 


BC 


8,LDRIN2 


NO, BRANCH - YES, 


01 


LDLDT6*1,X'FG' 


MODIFY LDT SUBROUTINE (EXIT) 


MVC 


LD1052(8),0(LINKR1) 


1052 DEV. AND UCB ADDR. 


MVC 


J4RTSUP(8),12(LINKR1) 


EDIT SUPPORT FUNCTION(NAME) 


ST 


LBAZRG,ADBASE 


MODIFY 


L 


LHK1RG,ADBASE 


ADDR OF END OF TABLE BLOCK 


ST 


LHK1RG,LB0PTA 


INITIALIZE START AND END OF 


ST 


LWK1RG,LD0PTZ 


* OPTIONAL C.S. TABLE 


LA 


LINKR2 , 16 ( LINKRi ) 


ADDR. OF OPTIONAL C.S. LIST 


LH 


LMK 1RG > U4K 3RG , LOOP TA 


INITIALIZE OPT.TBLE LOOK-UP 


AR 


LNK1RG,LNK2RG 


ADDR. OF ENTRY IN LDOPT TBLE 



A25G473G 

A25 04740 
A2504750 
A25G4760 
A25G4770 
A25 04780 
A250479G 
A2504800 
A25 04810 
A2504820 
A2504830 
A2504840 
A25 04850 
A2504860 
A25 04870 
A2504880 
A2504890 
A2504900 
A2504910 
A2504920 
A2504930 
A2504940 
A2504950 
A2504960 
A2504970 
A2504980 
A2504990 
A2505000 
A2505010 
A2505020 
A2505030 
A2505040 
A2505050 
A2585Q&0 
A2505070 
A2505080 
A2505090 
A2505100 
A2505110 
A2505120 
A2505130 
A2505140 
A2505150 
A2505160 
A2505170 
A2505180 
A2505190 
A2505200 
A2505210 
A2505220 
A25 05230 
A2505240 
A2505250 
A2505260 
A2505270 



LDRIN4 



LDRIN5 



LA 


LINKR2,6(LINKR2) 


60 TO NEXT LIST ELEMENT 


TH 


0(LINKR2),X'03 f 


EXAMINE CONTR. SECT. LIST 


BC 


8,LBRIN5 


BR. IF C.S. LIST EXHAUSTED 


BC 


1>LDRIN4 


BR. IF C.S. TO BE LOADED 


HVC 


0(£>>U4K1RG),Z(LINKR2) 


STORE IN LDOPT TABLE THE 


BC 


15>LBRIN3 


* NAME OF C.S.TO BE SKIPPED 


ST 


LNK1RG>LD0PTZ 


UPDATE ADDR.OF END OF LDOPT 


HVC 


L0CCTR(4)>4(LINKR2) 


LOCATION COUNTER VALUE 


HVC 


LC0NSL(8),1&(LINKR2) 


ADDR. OF ENTRY TO CTRL.PRG. 


NC 


LBLIST(1),TBSIZE 


INITIALIZE LPRINT TO 14RITE 


NI 


TBSIZE,X f GO f 


* LOADING MESSAGES OR NOT 


ST 


LHK1RG>LDREFA 


UNITIALIZE START OF REF. 


ST 


LNK1RG>LDDICA 


* TABLE AND START AND END 


ST 


LNK1RG>LDDICZ 


* OF DICTIONARY 


S 


LNK1RG,TBSIZE 


SUBTRACT TABLE BLOCK LENGTH 


5RL 


U4K1RG>2 


ROUND OFF TO FULLWORD 


SLL 


LHK1RG,2 




ST 


LHK1RG>LDT0PP 


ADDR OF START OF TABLE BLCK 


ST 


LyKlRG,LDLSTA 


INITIALIZE START AND END OF 


ST 


U4K1RG>LDLSTZ 


* TABLE 'LIST* 


NI 


LDSMS,XW 


RESET CONTROL FLAGS 


BC 


15,INIENT 


BR. TO INITIAL ENTRY POINT 


SPACE 2 





PROGRAM CHECK ROUTINE C INITIALIZATION ) 
NAME= LENTRY 



THIS ROUTINE SETS PARAMETERS FOR PROGRAM INTERRUPTION. NHEN A 
PROGRAM INTERRUPT OCCURS, THE CONTROL PROGRAM NILL BE ENTERED. IT 
WILL PLACE THE PROGRAM OLD PSJ4 IN THE DOUBLE NORD AT LOCATION 
PRGPSN AND RETURN CONTROL TO THE INSTRUCTION AT LOCATION LPRGCK. 



LENTRY 
LBEGIN 



PRGPSH 



LPRGCK 



SPACE 
BALR 
L 
L 

CNOP 

SVC 

DC 

DS 

BC 

EJECT 



LBASRG>0 INITIALIZE BASE REGISTER 
LBASRG > ADBASEHLBEGBK 0 >LBASRG ) * 

LBAZRG,ADBAZE * 

2>8 * SET CONTROL PROGRAM FOR 

6 PROGRAM INTERRUPTION 

A (LPRGCK) RETURN ADDRESS 

D PROGRAM OLD PSU 

15,LDRIN1 GO TO LOADER INITIALIZATION 



if \r \r v? w \r \i 

#<r ?r ?>f >» 

PROGRAM CHECK ROUTINE 
NAME= LPRGCK 



SPACE 

BAL LEXIT1»LMSDG1 
DC C f l> 



PRINT 'PROGRAM ERROR* 
* STOP 



AND 



A2505280 
A2505290 
A25053G0 
A25G5310 
A25G5320 
A25D533G 
A2505340 
A250535Q 
A2505360 
A25G5370 
A2505380 
A25Q539G 
A25G5400 
A2505410 
A2505420 
A2505430 
A25Q544Q 
A25G5450 
A2505460 
A2505470 
A2505480 
A2505490 
A25055Q0 
A25G5510 
A2505520 
A25G5530 
A25G5540 
A250555G 
A2505560 
A25G5570 
A2505580 
A250559Q 
A2505600 
A2505610 
A2505620 
A2505630 
A25 05640 
A2505650 
A25056G0 
A2505670 
A25 05£80 
A2505690 
A250570Q 
A2505710 
A25G5720 
A25 05730 
A25Q5740 
A25 05750 
A2505760 
A2505770 
A2505780 
A2505790 
A2505800 
A2505510 
A25 05820 



DC AL3(MSDG0A) (OLD PROGR.PSH AT PRGP5W) 

SPACE 2 

. w \ y v » v .V .V W .v V y v w« w tfvvwv.v.yvVtfVtf.v \r V v \f vr \r v vi» xr vr v> v vr x> \r vr v \y v v y ,xf y \y xr v> v v» v> w vvr vr v v \» 



STOP (END OF LOADING OWING TO ERROR) 
NAHE= LDSTOP 



9f S^f^SWf^f Jf^Wf^f^f 9f 5f^f'}f9f - )f ^ 5f 'Jf 5f 5? if 5f & 3f 3$ 5f 3f 5f $f 3f J(f if 3t3f ?f if^'Jf $f^f^5f^^^f ■Jf 5^^^^ 

SPACE 

LEXIT2,MSDG01 CONSOLE MESSAGE f LOADING 

LEXIT1,LDCSL1 * ERROR, CANNOT CONTINUE" 

2 4 * 

3* LOAD WAIT PSW (I/O, EXTERNAL 

A(STOPSW) * INTERRUPTS DISABLED) 



LDSTOP 



LDWAIT 



LA 

BAL 
CHOP 
SVC 
DC 

EJECT 

* CALLING SEQUENCE LA 



CONSOLE MESSAGE ROUTINE 
NAME = LDCSL1 



LEXIT2,MSDG0X (X DEPENDS ON THE NESSAGE) 



LDCSL1 



LDCSL2 



BAL LEXIT1,LDCSL1 



SPACE 

MVC LDCSL2*2(4),GCLEXIT2) 
MVC 4(3>LEXIT2),MSBGCX 
CNOP 2,4 
SVC 4 
DC A(0) 

TH 0(LEXIT2),X f 07 f 
BC 0,*-4 
BCR 1,LEXIT1 
BC 15,LDWAIT 
SPACE 2 



SET UP WRITE SEQUENCE 
MESSAGE CODE 

WRITE HESSAGE 

LENGTH AND ADDR. OF HESSAGE 

TEST STATUS BYTE 

BR IF WRITE IN PROGRESS 

BR IF WRITE FINISHED AND OK 

BR IF WRITE NOT OK 



CALL WRITE ROUTINE FOR LOADING CONTROL MESSAGES 



NAME= LHSDG1 



CALLING SEQUENCE 



BAL LEXIT1,LMSDG1 (OR LPRINT) 

DC C f CONTROL CHARACTER* 

DC AL3 (ADDRESS OF MESSAGE) 



THIS ROUTINE IS ENTERED TO WRITE ANY WARNING OR ERROR LOADING * 

CONTROL MESSAGE- TO WRITE AN INFORMATIVE MESSAGE THE ROUTINE MUST * 

BE ENTERED AT LOCATION LPRINT, THEN THE BYTES WITH ADDRESSES * 

LDXBUF+72, LDXBUF+80 * 

WILL BE WRITTEN WITHOUT ANY MODIFICATION. * 

* 

SPACE 



A2505830 
A250584Q 
A25 05850 
A2505S60 
A2505870 
A2505880 
A2505890 
A25G5900 
A2505910 
A25G5920 
A2505930 
A2505940 
A2505950 
A2505960 
A25G597G 
A2505980 
A2505990 
A2506000 
A25G6010 
A2506020 
A2506030 
A250G040 
A2506G5G 
A2506060 
A2506070 
A25G6050 
A2506090 
A250610G 
A25G6110 
A2506120 
A250G130 
A25G6140 
A2506150 
A25G6160 
A2506170 
A25 06180 
A2506190 
A25 06200 
A2506210 
A2506220 
A2506230 
A2506240 
A2506250 
A25G6260 
A2506270 
A25G6280 
A2506290 
A2506300 
A2506310 
A2506320 
A2506330 
A2506340 
A2506350 
A2506360 
A2506370 



LMSDG1 CLC LBXBUF+72(7),LDXBUF*73 
6>LM5DG2 
LEXIT3>LBBEC2 
LM5DG2 01 LDERR,X f G2 f 



CLC 

BC 
BAL 
01 
EJECT 

WRITE MESSAGE ROUTINE 



COL. 72-80 ARE BLANKS 
NO, BRANCH 

YES , BRANCH , CONVERT CARD CNT 
SET SWITCH 1 ERROR FOUND* ON 



NAHE= LPRINT 

THIS ROUTINE WRITES MESSAGES ON AN OUTPUT DEVICE( PRINTER , MAGNETIC 
TAPE, CONSOLE TYPEWRITER )AND TESTS THE STATUS SET BY THE IOPACKAGE 
PROGRAM IN FIRST LOCATION OF THE OUTPUT BUFFER . 

IF THE MESSAGE HAS BEEN WRITTEN SUCCESSFULLY, CONTROL RETURNS TO 
THE CALLER. IF NOT THE CONDITION IS BEYOND CORRECTION AND LOADING 
STOPS. 

NOTE 1 - IN THE INPUT/OUTPUT BUFFERS THE FIRST BYTE IS A BLANK 
RESERVED FOR STATUS BITS TO BE SET BY THE IOPACKAGE PROGRAM. THUS, 
THE NUMBER OF BYTES OF DATA SPECIFIED IN THE SVC CALLING SEQUENCE 
IS 1 LESS THAN THE LENGTH OF BUFFER. THE DATA WILL BE FETCHED 
FROM OR PLACED IN LOCATIONS 

BUFFER+l,BUFFER+2, . . • .BUFFER+N 
NOTE 2 - FOR A PRINTING OPERATION (IBM 1303,1443) , THE CHARACTER 
IN LOCATION BUFFER +1 IS A CONTROL CHARACTER SPECIFYING THE TYPE 
OF PRINT COffiAND 

CHARACTER v l» 



WRITE AND SKIP 
AFTER PRINTING 
WRITE AND SPACE 
PRINTING 

THE DATA WILL BE FETCHED FROM LOCATIONS 

BUFFER+2, BUFFER+N 



ANY CHARACTER BUT '1* 



TO CHANNEL 1 
1 LINE AFTER 



LPRINT 



LPRIN1 



SPACE 






TM 


LBLIST,X*Ql f 


IS MESSAGE REQUESTED 


BC 


12>4(LEXIT1) 


NO, BRANCH - YES, CONTINUE 


MVC 


OUTBUF+1(1),OCLEXIT1) 


CONTROL CHARACTER (PRINTER) 


HVC 


0UTBUF*9(3),I(LEXIT1) 


MESSAGE ADDRESS (TEXT) 


L 


LEXIT2,0UTBUF+3 


& 


HVC 


0UTBUF*8(8),PRTBUF 


SYMBOL OR CARD IDENTIF. 


IC 


LEXIT3,3(LEXIT2) 
LEX IT 3,0 


MESSAGE LENGTH (TEXT) 


BCTR 




EX 


LEXIT3,LPRIN2 


MESS. TEXT TO OUTBUF BUFFER 


MVC 


OUTBUF+4(3),Q(LEXIT2) 


^MESSAGE CODE 


CNOP 


0,4 


I/O REQUEST 


SVC 


18 


* (WRITE MESSAGE) 


DC 


C f 5IM2PRNT* 


* OUTPUT SUPPORT FUNCTION 


DC 


FL2'64 f 


* OUTPUT RECORD LENGTH 


DC 


A(OUTBUF) 


* OUTPUT BUFFER ADDRESS 


TM 


OUTBUF,X f 07 f 


* ERROR TYPE 


BC 


12,LPRERR 

MESTKT(47),MESTXT-1 


* ERROR RETURN 


MVC 


* CLEAR BUFFER (TEXT PART) 



A2506330 
A2506390 
A2506400 
A2506410 
A2506420 
A2506430 
A25G6440 
A2506450 
A2506460 
A25 06470 
A25G6480 
A25G649Q 
A2506500 
A25G651G 
A25G652G 
A2506530 
A25G6540 
A2506550 
A2506560 
A2506570 
A2506580 
A25G6590 
A2506600 
A2506610 
A25G6620 
A25Q6630 
A2506640 
A25 06650 
A2506660 
A2506670 
A25 06680 
A2506690 
A25Q6700 
A25G6710 
A250672G 
A2506730 
A25 06740 
A25 06750 
A2506760 
A2506770 
A2506780 
A25Q6790 
A2506800 
A2506810 
A25 06820 
A2506830 
A2506840 
A25 06850 
A2506860 
A25 06870 
A25 06880 
A2506890 
A2506900 
A2506910 
A25C6920 



BC 15>4(LEKIT1) 
LPRIN2 NVC MESTXT(1),4(LEXIT2) 
LPRERR EQU LDMAIT 

EJECT 



* NORMAL RETURN 
ERROR RETURN 



GET CARD IMAGE ROUTINE EXCEPTIONAL RETURN 
NAHE= LDREAD 

THIS ROUTINE ANALYZES THE STATUS SET BY THE IOPACKAGE PROGRAM IN 
LOCATION INPBUF IF ANY DIFFICULTIES HAVE ARISEN DURING READING. 
THEN DEPENDING ON THE CONDITION, LOADING STOPS OR CONTROL IS GIVEN 
TO ANOTHER PART OF PROGRAM. 

NOTE- SEE WRITE MESSAGE ROUTINE >NOTE 1. 



LDREAD 



SPACE 




TM 


INPBUF>X T 03 f 


BC 


12, LDMAIT 


BAL 


LEXIT1,LMSDG1 


DC 


C» f 


DC 


AL3CMSDG1N) 


BC 


15,LDLDTl+4 


SPACE 2 



ERROR TYPE 

CATASTROPHIC ERROR 

NRITE MESSAGE 'EOF BEFORE 

* END OF LOADING* AND 

* BRANCH TO LDT 

* CARD PROCESSING ROUTINE 



* DEVICE USED FOR LOADER INPUT IS A TAPE UNIT 



REMIND MAGNETIC TAPE ROUTINE 
NAME= LDREH1 

THIS ROUTINE IS ENTERED AT THE END OF THE LOADING PROCESS IF 



CALLING SEQUENCE LH LEXIT2, DEVICE ADDRESS 
BAL LEXIT1,LDREM1 



THE 





SPACE 






LDREM1 


STH 


LEXIT2,LDREM2 


SET UP NEXT CALLING SEQ. 




SVC 


9 


ENABLE I/0,EXT. INTERRUPTS 
I/O REQUEST AND CONTINUE 




CNOP 


4,8 




SVC 


13 


* (REMIND MAGNETIC TAPE) 


LDREN2 


DC 


X'GOGO' 


* TAPE UNIT DEVICE ADDRESS 




DC 


A(REMCCW) 


* REMIND CCH 




DS 


4C 


* ERROR TYPE, SENSE BYTES 




DS 


D 


* REMIND CSM 


REWPSN 


DS 


D 


* P5M AT I/O INTERRUPTS 




DC 


ACLDREM3) 


* NORMAL RETURN 




DC 


ACLDREM3) 


* EXCEPTIONAL RETURN 




BC 


15,0(LEXIT1) 


OPERATION STARTED 




CHOP 


2,4 




LDREW3 


SVC 


3 


RETURN TO CALLER OR TO 




DC 


A(REMPSW) 


POINT OF I/O INTERRUPTION 



A25 06930 
A25G6940 
A2506950 
A250b960 
A25G6970 
A2506980 
A25G699G 
A2507000 
A2507010 
A2507020 
A2507030 
A2507C4G 
A2507050 
A250706G 
A25 07070 
A25070S0 
A25Q7090 
A25071G0 
A2507110 
A2507120 
A2507130 
A25 07140 
A25G7150 
A25Q7160 
A250717G 
A25G7180 
A2507190 
A2507200 
A2507210 
A2507220 
A2507230 
A2507240 
A25 07250 
A250726G 
A2507270 
A2507280 
A25 07290 
A2507300 
A2507310 
A2507320 
A2507330 
A2507340 
A25 07350 
A2507360 
A2507370 
A2507350 
A2507390 
A2507400 
A2507410 
A2507420 
A2507430 
A2507440 
A25 07450 
A2507460 
A25 07470 



EJECT 

CONVERT CARD COUNT SUBROUTINE 



NAME- LBDEC1 
CALLING SEQUENCE 



BAL LEXIT3,LBDEC1 

IS 



CONVERTED TO 



* THE CONTENTS OF CARD COUNTING REGISTER CRDCNT 

* DECIMAL AND RESULT IS STORED IN LOCATIONS 

* LDXBUF+72, LDXBUF +73, LDXBUF+79 

* ONE CHARACTER BLANK IS SET IN LOCATION 

* THIS ROUTINE IS ENTERED AT LBDEC2 WHEN THE CARD COUNTING REGISTER 

* IS ALREADY UPDATED. 

V V V V V V V Vf V \f V Vf V y y y V V V. V .V V V V y V V V V V ,V ,V V M V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V V <^ V V V V V 

SPACE 



(COL. 73-80 OF CARD IMAGE) 
LDXBUF+71 (COL. 72). 



LBDEC1 


LA 


CRDCNT,! (CRDCNT) 


INCREMENT CARD COUNT BY 1 


LBDEC2 


CVD 


CRDCNT, LDXBUF+72 


CONVERT CARD COUNT TO DEC. 




HVC 


LDXBUF+72(4),LDXBUF+76 


* AND STORE IN CARD IMAGE 




m?K 


LDXBUF+72 (8), LDXBUF+72 ( 4 ) 


* COLIHIS 72 TO 78 




01 


LDXBUF+79 ,X T FG f 


SET ZERO IN COLUMN 80 ZONE 




HVI 


LDXBUF+72, X* 40* 


SET BLANK IN COLUMN 73 




BCR 


15,LEXIT3 


RETURN TO CALLER 




SPACE 








TV 




CONSTANTS AREA 






SPACE 








DS 


CD 




5T0PSH 


DC 


X r 0006* 


STOP PSW (WAIT STATE BIT) 




DC 


XL6*0 f 




RENCCN 


CCW 


X'07',*,X'00M 


REMIND CCM 


LOHEGA 


EQU 


PRGPSU 




LDXBUF 


EQU 


LOHEGA-144 


INPUT BUFFER (80) 


INPBUF 


EQU 


LDXBUF-1 




PRTBUF 


EQU 


LDXBUF+72 


INPUT BUFFER (CRD ID, SYMBOL) 


OUTBUF 


EQU 


LDXBUF+80 


OUTPUT BUFFERCMESS. HEADER) 


MESTXT 


EQU 


OUTBUF+17 


OUTPUT BUFFER(TEXT) 


NRTBUF 


EQU 


INPBUF 


OUTPUT BUFFER USED 


EDBUFF 


EQU 


INPBUF+1 


* FOR EDITING 


LALPHA 


EQU 


LDXBUF-4 


BASE ADDRESS 


ADBASE 


DC 


A (LALPHA) 




ADBA2E 


DC 


A(LALPHA-1028) 




LEDDEV 


DC 


H f O f 


EDIT DEVICE SUPPORT ADDRESS 


LODDEV 


DC 


H*O f 


LOAD DEVICE SUPPORT ADDRESS 


LCONSL 


DC 


A(0) 


ENTRIES TO CONTROL... 




DC 


A(0) 


* PROGRAM. 


LDLIST 


DC 


X f 03 f 


SWITCH * WRITE LOADING 



A25 07480 
A2507490 
A2507500 
A25G7510 
A2507520 
A250753G 
A2507540 
A2507550 
A2507560 
A2507570 
A2507580 
A2507590 
A25076Q0 
A2507610 
A25 07620 
A2507630 
A2507640 
A2507650 
A250766Q 
A25G7670 
A2507680 
A25 07690 
A2507700 
A25 07710 
A25 07720 
A2507730 
A25G7740 
A25 07750 
A2507760 
A2507770 
A25 07780 
A2507790 
A2507800 
A25G7810 
A25 07820 
A250783G 
A2507840 
A25 07850 
A25 07860 
A2507B70 
A25 07880 
A2507890 
A2507900 
A2507910 
A2507920 
A2507930 
A25 07940 
A25 07950 
A25G7960 
A2507970 
A2507980 
A25 07990 
A2508000 
A2508010 
A2508020 



LDERR EQU LDLI5T * CONTROL MESSAGES' 

EJECT 

xt v v v v»v w.v .vr.y yj-Vf vf ,vf ,vf \r \r.\r v vf v Vf xr vj vr ■» vf vr \r \r Vf v vf vf vf .vr v\r.\rxr***j' -vr\i'V\r\r \r *fyr\rxryi' \r!ir.\rvxr\r\*\.*M\*\r\r v\*\r\rv 



LOADER ENTRIES 
NAME:: INTENT 

THIS ROUTINE HAS 1U0 ENTRY POINTS, LOCATION INIENT AND LOCATION 
RESENT. LOCATION RESENT IS ENTERED FROM THE INITIALIZATION ROUTI- 
NE, AT THE FIRST LOADING PROCESS. LOCATION RESENT IS ENTERED EACH 
TIME AN END CARD HAS BEEN READ AND PROCESSED. 



INIENT 



RESENT 



if \t v vf vf vf vf vr \r\f vf vr v,» Vf vf v? vvf v \f w p w w w \/ v \.* v Vf \f w vvr \f w w w w yj v \7 w vvr vv w» w v/ \/ 

SPACE 
01 
NVC 
HVC 
SR 
XI 

hvc 

BAL 

SPACE 2 



LDSaS,X'5Q* 

0UTBUF+1(4),MESHDR 

0UTBUF+5(59),0UTBUFH 

CRDCNT>CRDCNT 

LDSl4S,X T 80 f 

LDREFZ(4),LDREFA 

LEXIT1»LDTCK1 



INITIALIZE FLAGS 
MESSAGE CODE (COMPONENT) 
CLEAR OUTBUF BUFFER 
CLEAR CARD COUNTING REG. 
SET ABS. LDR. FLAG 
CLEAR REF. TABLE 
CHECK-ADJUST TABLE SPACE 



M.W.yv vvvvv v*v» vf vr vf vr vf V v Vf v vr vr y vr w.wxf v< \r vr Vf vr vr xr vr vr tfV 'tf'if gvvv'<) , vvvy<.'Wv'f vfjvvvMX'-vw vvw 



GET CARD IMAGE ROUTINE 
NAHE= LDCARD 



THIS ROUTINE HAS ONE FUNCTION OBTAINING CARDS OR CARD IMAGES. IT * 
IS ENTERED EACH TIME A CARD HAS BEEN PROCESSED AND ANOTHER CARD * 
MUST BE OBTAINED FOR PROCESSING. * 



LDCARD 



SPACE 

CNOP 

SVC 

DC 

DC 

DC 

TH 

BC 

LA 

EJECT 



0,4 
18 

C f SIM2SY5 * 

FL2W 

A(INPBUF) 

INPBUF,X'07 f 

12>LDREAD 

CRDCNT,1(CRDCNT,0) 



I/O REQUEST AND KAIT 

* (GET CARD IMAGE) 

* INPUT SUPPORT FUNCTION 

* INPUT RECORD LENGTH 

* INPUT BUFFER ADDRESS 

* ERROR TYPE 

* EXCEPTIONAL RETURN 
INCREMENT CARD COUNT BY 1 



EXAMINE CARD ROUTINE 



NAME= LDSS4T1 

A TABLE LOOK-UP IS USED TO SELECT THE APPROPRIATE PROCESSING ROU- 
TINE FOR THE CARD THAT HAS JUST BEEN READ. EACH ENTRY IN TABLE 
LTYPLD CONSISTS OF 8 BYTES. THE FIRST CONTAINS 02 (12-2-9 PUNCH) 
THE NEXT THREE CONTAIN A CARD TYPE AND THE LAST FOUR CONTAIN THE 
ADDRESS OF THE PROCESSING ROUTINE FOR THAT TYPE OF CARD. TO SAVE 



A2508030 
A25 08040 
A2508050 
A250S060 
A2508070 
A2503080 
A25 03090 
A2508100 
A2508110 
A25 08120 
A2503130 
A2508140 
A2508150 
A250S160 
A25 03170 
A250818Q 
A2503190 
A2508200 
A2508210 
A2508220 
A2508230 
A25 08240 
A2508250 
A2508260 
A25 08270 
A25 08280 
A25G8290 
A2508300 
A2503310 
A25 08320 
A2508330 
A2508340 
A2508350 
A2503360 
A2508370 
A2508380 
A2503390 
A25G84G0 
A2508410 
A25 08420 
A2508430 
A2508440 
A2503450 
A2508460 
A25G8470 
A2508480 
A2508490 
A2503500 
A2508510 
A2508520 
A2508530 
A250354G 
A25GS550 
A25 08560 
A250S570 



* TIME, THE CARD TYPES ARE LISTED IN ORDER OF DECREASING FREQUENCY. * 





SPACE 






LDSHT1 


LH 


LDCONT ,LDFINL ,LDCST1 


INITIALIZE REGS- FOR BKLE 




L 


LMK1RG,LTYPCD 

U4K 1RG > LTYPLD ( LDCONT ) 


CARD TYPE CCOLS.1-4) 


LDSHT2 


CL 


SEARCH TABLE FOR THIS CARD 




BC 


8,LDSHT3 


* TYPE AND BRANCH IF FOUND 




BXLE 


LDCONT >LD5TEP >LDSi4T2 


* 




BAL 


LEXIT1»LHSDG1 01 


GHz TE MESSAGE T ILLEGAL 




DC 


C f 


* CARD TYPE IN LOADER 




DC 


AL3(M5DGI1) 


* INPUT 1 AND GET NEXT CARD 




BC 


15>LDCARD 




LDSHT3 


L 


LDBRRG,LTYPLDH(LDCONT) 


FETCH ROUTINE ADDRESS 


LDSMT4 


OCR 


15,LDBRRG 


NO BRANCH IF ACTUAL C.SECT. 




CL 


U4K1RG,LDEND0 


HUST BE SKIPPED. IS END CRD 




BC 


7,LDCARD 


NO > IGNORE AND GET NEXT CARD 




01 


LDSl4T4H,X f F0 f 


YES, END OF SKIP TO NEXT C.S 




BC 


15,LDCARD 






EJECT 







SLC CARD PROCESSING ROUTINE 



* NAHE= LDSLC1 

* THIS ROUTINE SETS THE LOCATION COUNTER TO THE ADDRESS SPECIFIED 

* IN THE SLC CARD OR TO THE CURRENT ADDRESS OF A VALID SYMBOLIC 

* NAME, OR TO THEIR SUH IF BOTH ARE PRESENT. CONTROL THEN RETURNS 

* TO THE CARD READING ROUTINE. 



A SYMBOLIC NAME SPECIFIED ON THE CARD IS DETERMINED AS VALID IF 
IT IS FOUND IN THE LOADER DICTIONARY EITHER AS A CONTROL SECTION 
OR AS A RELOCATED ENTRY. IF NOT RELOCATED OR NOT IN THE DICTION- 
ARY, THE SYMBOL IS INVALID AND AN APPROPRIATE MESSAGE IS NRITTEN. 

IF THE CARD CONTAINS NEITHER ADDRESS NOR SYMBOL, A MESSAGE IS 
PRINTED AND CONTROL RETURNS TO THE CARD READING ROUTINE. 

THE UPDATED LOCATION COUNTER VALUE IS CHECKED TO SEE THAT THE 
LOADER TABLE BLOCK IS NOT OVERLAID. IF IT IS, A MESSAGE IS WRIT- 
TEN AND LOADING STOPS WITH A DUMP. 



LDSLC1 



LDSLC2 



SPACE 






SR 


LWK3RG,LWK3RG 


CLEAR FORKING REGISTER 


01 


LDHXAD»X f 2G f 


SET FLAG NO HEX ADDR IN CRD 


CLI 


LSLCAD,X f 4Q f 


TEST IF HEX ADDR IN CARD 


BC 


8,LDSLC2 


NO - BRANCH 


LA 


LEXIT1,LSLCAD 


CONVERT ADDRESS TO BINARY 


LA 


LEXIT2>6 


* AND STORE 


BAL 


LEXIT3,LHEXB1 




LR 


U4K3RG,LEXIT2 




NI 


LDHXAD,X f DF f 


CLEAR FLG NO HEXADDR IN CRD 


CLI 


LSLCNH>XHO' 


TEST IF SYMBOLIC ADDRESS 



A2508580 
A2508590 
A2508600 
A2508610 
A25 08620 
A2503630 
A250S640 
A25 08650 
A250866G 
A2503670 
A2508630 
A250S69G 
A25087GO 
A2508710 
A2508720 
A2503730 
A2503740 
A25 08750 
A2508760 
A2508770 
A2508780 
A25 08790 
A25 08800 
A2508610 
A2508820 
A25Q8830 
A250S840 
A25 08850 
A25 08860 
A2508370 
A2508880 
A250SS90 
A2508900 
A25 08910 
A2508920 
A2508930 
A2508940 
A25 08950 
A2508960 
A2508970 
A250S980 
A2508990 
A25 09000 
A2509010 
A2509020 
A2509030 
A2509040 
A2509050 
A2509060 
A2509070 
A2509080 
A2509090 
A2509100 
A2509110 
A2509120 



LD5LC3 
LBSLC4 



LD5LC5 



LB5LC6 



LD5LC7 



LDSLC8 



BC 


6,LDSLC3 


YES - BRANCH 


TM 


LDHXAD,X f 20 T 


TEST IF HEX ADDR IN CARD 


BC 


12,LDSLC6 


YES - BRANCH 


BAL 


LEXIT1,LMSDG1 


S4RITE MESSAGE *NEITH+R 


DC 


C f * 


* NAME NOR ADDRESS IN SLC 


DC 


AL3CM5DG1D) 


* CARD* AND GET NEXT CARD 


BC 


15 >LBCARD 




LM 


LDCONT,LDFINL,LDDICA 


INITIALIZE DICT. LOOK-UP 


ST 


LNK3RG,LESADR-1 


STORE CONVERTED HEXA ADDR 


BXLE 


LDCONT >LD5TEP,LDSLC8 


LOOK UP SYHB. IN DICTIONARY 


CLC 


0 ( 6 y LDCONT ) , LSLCNM 


* AND BRANCH IF NOT FOUND 


BC 


6,LBSLC4 




TH 


8(LDCONT),X f 02 f 


IS SYHBOL VIRTUAL(EXTR) 


BC 


1»LDSLC8 


YES - BRANCH 


TH 


8(LDCONT)»X f 01 f 


IS SYHBOL CONTROL SECTION 


BC 


12,LD5LC5 


YES - BRANCH 


TM 


6(LDCOI-4T),X f 05 t 


IS SYHBOL RELOCATED ENTRY 


BC 


12>LDSLC8 


NO - BRANCH 


A 


LMGRG, 8 (LDCONT) 


HEXAD ADDR + SYMBOLIC ADDR 


SLL 


LM3RG>8 


CLEAR FIRST BYTE(DICT.TYPE) 


SRL 


LHK3RG,8 




CL 


LMK3RG, LOCCTR 


NEH LOCCTR NOT LESS THN OLD 


ST 


LHK3RG, LOCCTR 


STORE NEW LOCCTR 


BC 


!0>LB5LC7 


YES - BRANCH 


BAL 


LEXIT1,LHSBG1 


NRITE HE S SAGE T SLC HAS SET 


DC 


C f 1 


* LOCCTR TO VALUE 


DC 


AL3CM5DG1G) 


* LOADED* AND CONTINUE 


CLC 


LOCCTR, LDTOPP 


DOES NEH LOCCTR OVERLAY 


BC 


4,LDCARD 


* LOADER TABLES-BR IF NO 


BC 


15,LDRES6 


YES>HRITE MESSAGE AND STOP 


BAL 


LEXIT1,LM5DG1 


NRITE MESSAGE * SYHBOL NOT 


DC 


C f f 


* DEFINED * 


DC 


AL3CH5DG1E) 




TH 


LDHXAD,X f 2G f 


TEST IF HEX ADDR IN CARD 


BC 


1>LDCARD 


YES - BRANCH 


L 


LHK3RG,LE5ADR-1 


RELOAD CONVERTED HEXA ADDR 


BC 


15,LDSLC6 




SPACE 2 





ICS CARD PROCESSING ROUTINE 
NAHE= LDICS1 



THIS ROUTINE ESTABLISHES A DICTIONARY ENTRY FOR THE CONTROL SEC- * 

* TION NAME ON THE ICS CARD IF NO ENTRY FOR THAT CARD EXISTS AND, * 

* IF NECESSARY, ADDS THE CARD-SPECIFIED CONTROL SECTION LENGTH TO * 

* THE LOCATION COUNTER* * 

********* 

SPACE 

LDICS1 LA LEXITI,LICSLG LOAD C.S, LENGTH FROM CARD 

LA LEXIT2,4 CONVERT LENGTH OF 

BAL LEXIT3,LHEXB1 * CONTROL SECTION AND 

STH LEXIT2,LSECLG * STORE 



A2509130 
A2509140 
A2509150 
A2509160 
A2509170 
A2509180 
A2509190 
A25G9200 
A25 09210 
A25 09220 
A25G9230 
A25G9240 
A25 09250 
A2509260 
A2509270 
A2509280 
A250929Q 
A2509300 
A2509310 
A2509320 
A2509330 
A2509340 
A2509350 
A25093G0 
A2509370 
A25 09380 
A2509390 
A25G9409 
A2509410 
A2509420 
A25G9430 
A25 09440 
A25Q9450 
A25G9469 
A2509470 
A25 09480 
A25G9490 
A2509500 
A25095I0 
A2509520 
A2509530 
A25G9540 
A2509550 
A2509560 
A25 09570 
A2509580 
A2509590 
A2509b00 
A2509610 
A2509G20 
A2509630 
A2509640 
A2509650 
A2509660 
A2509670 



XC LICSLG(4),LICSLG CLEAR C.S. LENGTH IN CARD A2509680 

LA LEXIT2,LDICS2 * A2509&90 

BAL LEXIT1,LDH0R1 IS NAME IN DICTIONARY A25 09700 
TM 8CLDC0NT),X'02* YES-IS SYHBOL VIRTUAL(EXTR) A2509710 

BC 12>LDCARD NO - BRANCH TO LDCARO A25 09720 

LDIC52 BAL LEXIT3>LDRES1 YES- RESERVE STORAGE A2509730 

BAL LEXIT1,LDTCK1 CHECK ROOM IN TABLES A2509740 

BC 15, LDCARO * A2509750 

EJECT A2509760 

A25 09770 

* * A25 09780 

* E5D CARD PROCESSING ROUTINE * A25 09790 

* * A2509800 

* NAME= LDESD1 * A25 09810 

* * A2509820 

* THIS ROUTINE DETERMINES THE TYPE OF SYMBOL (0, 1 OR 2) ON THE * A250983Q 

* CARD AND PROCEEDS AS FOLLOWS. * A25 09840 

* * A2509850 

* ESDO. THE ADDRESS IS CALCULATED AT WHICH THE ENTRY MAY BE STORED * A2509360 

* IN THE REFERENCE TABLE REFTAB. * A25G9870 

* * A2509880 

* THE SYMBOL IS LOOKED FOR IN THE DICTIONARY AND IF IT IS NOT * A2509890 

* FOUND, A 1 CONTROL SECTION* ENTRY IS CREATED IN BOTH THE * A2509900 

* DICTIONARY AND REFTAB, AND THE LOCATION COUNTER IS UPDATED, * A2509910 

* * A2509920 

* IF THE SYHBOL IS FOUND IN THE DICTIONARY LABELED AS 'EXTER- * A2509930 

* NALV THE ENTRY IS CHANGED TO A 'CONTROL SECTION* ENTRY, A * A25G994Q 

* 'CONTROL SECTION* ENTRY IS CREATED IN REFTAB AND THE LOCA- * A2509950 

* TION COUNTER IS UPDATED. * A2509960 

* * A2509970 

* IF THE SYMBOL IS FOUND IN THE DICTIONARY LABELED AS * ENTRY' * A2509930 

* A MESSAGE IS WRITTEN TO THAT EFFECT AND PROCESSING CONTI- * A25 09990 

* NUES AS FOR AN 'EXTERNAL* LABEL. * A25 10000 

* * A2510010 

* IF THE SYMBOL IS FOUND IN THE DICTIONARY LABELED AS 'CON- * A2510020 

* TROL SECTION', THE STORED C.S. LENGTH IS COMPARED WITH THAT * A2510030 

* STATED IN THE CARD AND IF THEY DIFFER, A MESSAGE IS WRITTEN * A251G040 

* TO THAT EFFECT. * A2510050 

* * A25100G0 

* ESDI. THE SYMBOL IS LOOKED FOR IN THE DICTIONARY AND IF IT IS NOT * A2510070 

* FOUND, AN 'ENTRY' ENTRY IS CREATED IN THE DICTIONARY ONLY. * A2510080 

* * A2510090 

* IF THE SYMBOL IS FOUND IN THE DICTIONARY LABELED AS 'EXTER- * A2510100 

* NAL', THE ENTRY IS CHANGED TO AN 'ENTRY' ENTRY. * A2510110 

* * A2510120 

* IF THE SYMBOL IS FOUND IN THE DICTIONARY LABELED AS 'ENTRY* * A2510130 

* OR 'CONTROL SECTION*, A MESSAGE IS WRITTEN TO THAT EFFECT. * A2510140 

* * A2510150 

* ESD2. THE ADDRESS IS CALCULATED AT WHICH THE ELEMENT MAY BE * A2510160 

* STORED IN REFTAB. * A2510170 

* * A2510180 

* THE SYMBOL IS LOOKED FOR IN THE DICTIONARY AND IF IT IS NOT * A2510190 

* FOUND, AN 'EXTERNAL* ENTRY IS CREATED IN BOTH THE DICTION- * A2510200 

* ARY AND REFTAB. * A2510210 

* * A2510220 



IF FOUND, THE ENTRY IN 
(CONTROL SECTION, ENTRY OR 
ENTRY IS CREATED IN REFTAB. 



THE DICTIONARY IS LEFT AS IT IS 
EXTERNAL) AND AN * EXTERNAL' 



ANY TIME AN ENTRY IS CREATED IN EITHER TABLE, 
CHECKED AND ADJUSTED IF NECESSARY . 



THE TABLE SPACE IS 



LDE5D1 
LDESDF 

LDESDG 
LDESD2 

LDESDA 



LDESDB 



LDESDC 



SPACE 2 




TH 

{FT 


i fstyp v 

LLJ Ur >A vj 


T^ FAI?n TYPF F^n-ft 

XD Lr1t\U 1 iiL UJu %J 


DLr 


D >LUL.Du<J 


NO.RPA^rH - YF^.TNiTTTA! T7F 


I M 
LFI 


LULUfi i >LU» xrvL , LUvr f H 


* fiPTTAN TAR! F 1 HO^ -HP 


RS?I F 
DaLC 


i nrnMT i hctfp i nr^nn 

LULOjt 1 >LUvk i Sir jLUCDUO 


dp TF TAR! F FyMAH^IFH 

DI\ » Xt 1 1» DLL LAitfiUu i U.U 


ri r 

LLL 


U\.D> LULUTi } ) y LLaiWiL 


tc r c KJAHF Tfi TARf F 

XD L • 3 * lirH iu, Xt« triL»L.t_ 


DP 


/ >LUcDur 


MA HA Tft KJFVT FI FMFMT 
hV)UU IU t\CA I CLCnCU 1 


KIT 
NX 


LUcw 1 4+l)A T Ur 


VPC CCTT 1 PkCIJT PAIITTWF TH 
TCD ,DC t LUDH I KUU I XNL IU 


oL 


ir 1 prApn 
itx >LULriKU 


at ri/TD AKir rAMTPAl QFrTTAK! 


TM 

in 


Lud ih I >a ud 


wac tyt rApn dp pry i fiAnrn 

MBD i a 1 LHKU DCCN LUrtU CU 


DL 


!? >LucDUb 


TCD otsBT^Ln 


KIT 

rtx 


LUrto3L>A (V 


rt pAp ApC i A&nFP Fl AC 
LLCrtK HOD* LUnliCK rufib 


AT 
Ul 


I HTKITT V v * 
Luxfix 1 >a U4 


cct pv»r> rApn MAT FAI DKIH Fl AR 
DC 1 CJNU LnKU l\U 1 rUUstU rLrtU 


KIT 


1 FSTYP V fft^f 


ri tap makj C!Tf;KlTFTrAWT RTT^ 
LLCrif\ tvJrl Dxunixr xLHTs I Ox ID 


in 


i fqtyp y * ni » 

LCD iTr >A Ul 


TS PAPH TVPF F^H f 

XD LrtKU 1 T r C CDL) X 


Rr 

DL 


X »LUCDUD 


TCD Df\^F<iLn 


Lrf 


Lrl l\ x K U , L C D u 1 U 


I AAFl FsH TH AF FI FMFMT 

Lunu LOU IU \Ji LLLi iLn 1 


! A 
Lr» 


Lr>»\i-l\0 , X\ LriJ\Xi\U , U / 


Ann f Tft TH FAP MFVT F^H 

riUU X IU Xu iUi\ 4«t_A 1 Lou 


Din 


L*Hf\Z.f\U ,LCDUxLJ 


CTAPF K'F^T F^H TH 

J IvlNL nuAl LJU xu 


LH 


I FYTT? I nF^nr 

LCA X 1 £. » LUC DDL 


rnHPiiTF AnnPF^ of ff fhfnt 


DLL. 


LWlSXrvU , 0 


* TM PFFFPFNPF TAR! F 


A 
H 


l Utf ipn i hpffa 


% 


r 

L 


LHrvX«\U >LUf\Cr£. 


Tq FT FM AflRP PA^T FHH PFFTR 

XD LLu 1 .nuut\ .rnj 1 l\ur lu 


Df 
DU 


JL4L > LUCoL/Q 


YES - BRANCH 


ST 


I MinPR J HPFF7 


F! FM ARDP TS MEM END PFFTR 


PA! 


i fytti f mrKt 

L.L-A X \ X , 5— U 1 Li\X 


CHFtK TAR! F SPACE 


I 

L 


I U'/lPft 1 HPFF7 


ADJUST ADDRESS OF ELEMENT 


rtv l 


a f a \ USHPft 1 J FSTYP 

*i % nr >USMt\u ) > LCD 1 T r 


TYPF AND. ASS AfinS TH PFFTR 


n T 

LL JL 


LCDl\» irC , A tU 


TS MAHF R! ANKfPPTVATF rOTIFi 

XD lift* It- ULnt <i\ \ r f\XVn i L. wUUL/ 


BC 


B»LDM0R2 


YFS - RPANfH 

I LJ Ul\JTH iL.I1 


BAL 


LEXIT1,LBH0R1 


IS MAHE TN DICTIONARY 


ST 


LDCONT, 0(U4K1RG,G) 


YES-DICT ENTRY TO REETAB 


TH 


LESTYP,X f 02 f 


TYPE IN REETAB IS EXTERNAL 


BC 


1,LDESD2 


YES - BRANCH 


TH 


G(LDC0NT),X f 02 f 


TYPE. IN DICT. IS EXTERNAL 


BC 


1,LDESDE 


YES - BRANCH 


TM 


8(LDC0HT),X f Gl T 


TYPE. IN DICT. IS ENTRY 


BC 


1,LDESDD 


* OR C.S. YES - BRANCH 


CLC 


b(2>LDC0NT),LSECLG 


COMPARE LENGTHS 


BC 


8,LDESDZ 


EQUAL ~ BRANCH 


BAL 


LEXIT1,LMSDG1 


WRITE MESSAGE 1 CONTROL 


DC 


C* f 


* SECTION DEFINED WITH TWO 


DC 


AL3(HSDG18) 


* LENGTHS f AND CONTINUE 


BC 


15,LDESDZ 




ST 


LDCONT , 0 ( LNK1RG , 0 ) 


NEW DICT ENTRY TO REFTAB 


HVC 


8(4>LDC0NT),LESTYP 


TYP AND ORG FRM REF TO DICT 


KC 


6(2, LDCONT ) , 6 ( LDCONT ) 


CLEAR LENGTH IN DICT. 



A2510230 
A251G2$9 
A2510250 
A25102b0 
A2510270 
A25 10280 
A2510290 
A2510300 
A2510310 
A2510320 
A2510330 
A25103^0 
A2510350 
A2510360 
A25I0370 
A2510380 
A2510390 
A2510^00 
A2510410 
A251G420 
A2510^30 
A2510440 
A2510450 
A2510AbO 
A2510470 
A2510^80 
A2510490 
A2510500 
A25105I0 
A2510520 
A2510530 
A25105^0 
A2510550 
A2510560 
A2510570 
A2510580 
A2510590 
A2510GQ0 
A2510610 
A2510G20 
A2510b30 
A2510840 
A2510650 
A25i0bb0 
A2510670 
A2510680 
A2510b90 
A2510700 
A2510710 
A25 10720 
A2510730 
A2510740 
A2510750 
A2510760 
A2510770 





TM 


LESTYP,X*Q2* 


TYPE IH REFTAB IS EXTERNAL 




BC 


1, LDESDZ 


YES - BRANCH 


LDE5DE 


BAL 


LEXIT3,LDRES1 


RESERV STORAGE FOR CSECTION 




BC 


15, LDESDZ 


* AND CONTINUE 


LBESDD 


BAL 


LEXIT1,LM5DG1 


WRITE MESSAGE *USED AS 




DC 


C* * 


* ENTRY AND CONTROL SECTION 




DC 


AL3CMSDG17) 


* NAME* AND CONTINUE 




BC 


15,LDESDE 




LDESD3 


LA 


LEXIT2, LDESDZ 


PREPARE RETURN ADDRESS 




BAL 


LEXIT1,LDM0R1 


IS NAME IN DICTIONARY 




TH 


8(LDCONT),X*02* 


TYPE. IN DICT. IS EXTERNAL 




BC 


1, LDESDZ 


YES - BRANCH 




TH 


8(LDC0NT),X*91* 


TYPE IN DICT. IS ENTRY 




BC 


1>LDESD5 


YES - BRANCH 




BAL 


LEXIT1»LMSDG1 


WRITE MESSAGE 'USED AS 




DC 


C* * 


* ENTRY AND CONTROL SECTION 




DC 


AL3(MSDG17) 


* NAME* AND CONTINUE 




BC 


15, LDESDX 




LDESD5 


BAL 


LEXIT1,LMSDG1 


WRITE MESSAGE 'ENTRY POINT 




DC 


C* ' 


* IS REPEATED* 




DC 


AL3CHSDG1J) 


* AND CONTINUE 




BC 


15, LDESDX 




LDE5D6 


BAL 


LEXITi»LMSDGl 


WRITE MESSAGE *ESD CARD 




DC 


C* * 


* FOLLOWS TXT CARD* 




DC 


AL3(HSDG16) 


* mn GET NEXT CARD 




BC 


15 »LDCARD 




LDESD4 


HVC 


6(2»LDC0NT)*LSECID 


STORE C.S IDENT , TYPE AND 




HVC 


8(4, LDCONT ) * LESTYP 


* ORIGIN Hi DICTIONARY 


LDESDZ 


BAL 


LEXIT1,LDTCK1 


CHECK ROOM IN TABLES 


LDESDX 


LA 


LWK2RG,16 


COMPUTE NUMBER OF 




LH 


LHK1RG,LESDCT 


* BYTES ON CARD 




SR 


LWK1RG,LHK2RG 


* HIKUS 16 




BC 


8,LDCARD 


IF ZERO GET NEXT CARD 




mvc 


LDXBUFU6C32 ) ,LDXBUF+32 


5HIFT CARD IMAGE COLUMNS 




STH 


LWK1RG,LESDCT 


* 33-64 TO COLS. 17-48 




BC 


15,LDESD2 


* AND GO TO PROCESS THE 




EJECT 




* NEXT ESD TERM ON CARD. 



* 



TXT CARD PROCESSING ROUTINE 



THE FIRST TXT 
* ENTRY* ENTRIES 



NAME= LDTXT1 

CARD CALLS SUBROUTINE 
IN THE DICTIONARY. 



*LDSTAB* TO RELOCATE ALL 



THE RELOCATED ADDRESS OF THE FIRST BYTE OF TEXT IS THEN OBTAINED 
AND THE TEXT IN THE CARD IS STORED STARTING AT THIS ADDRESS. 
THE ADDRESS OF THE FIRST BYTE OF TEXT IN THE FIRST TXT CARD IS 
ALSO STORED. WHEN THE PROGRAM IS EXECUTED, CONTROL IS TRANSFERRED 
TO THIS ADDRESS IF NO OTHER TRANSFER ADDRESS IS GIVEN LATER IN AN 
END OR LDT CARD. 



A2510780 
A2510790 
A25108D0 
A2510810 
A251082Q 
A2510830 
A251084Q 
A251085G 
A25 10860 
A2510870 
A2510880 
A2510890 
A2510900 
A25I0910 
A251D920 
A2510930 
A2510940 
A251095D 
A2510960 
A2510970 
A2510980 
A2510990 
A2511000 
A2511G10 
A2511020 
A2511D3D 
A2511040 
A2511050 
A2511060 
A2511070 
A2511QS9 
A2511090 
A2511100 
A2511110 
A251112G 
A2511130 
A2511140 
A2511150 
A2511160 
A2511170 
A2511180 
A251I190 
A2511200 
A25I1210 
A2511220 
A2511230 
A2511240 
A2511250 
A2511260 
A2511270 
A25 11280 
A2511290 
A2511300 
A2511310 
A2511320 





SPACE 






A2511330 


L0TXT1 


TM 


LD5TAT,X T Q3 f 


TXT»REP»RLD CARDS READ 


A2511340 




BC 


5>LDTXT2 


SOME - BRANCH 


A2511350 




BAL 


LEXIT3,LDSTAB 


SET TXT READ FLAG AND RELO- A2511360 




BC 


15,LDTXT3 


* CATF FNTRTFS IN DTCT 




LDTXT2 


BC 


4,LDTXT3 








BAL 


LEXIT1»LHSDG1 


UPJTF MESSAGE f TXT CARD 






DC 


C* 1 


* FOLLOWS REP OR RLD CARD 






DC 


AL3CMSDG12) 


* AND CONTINUE 




LDTXT3 


LH 


LJ4K2RG>LTXTCT 


LOAD TEXT LENGTH 


A2511420 




LTR 


LNK2RG>LHK2RG 


* IS LENGTH- 0 






BC 


8>LDCARD 


* YES»BRANCH-NO, 


A2511^^0 




HVC 


LMZCSI(2)>LESDID 


STORE ESD ID AND ADDRESS 


A25 11450 




HVC 


LH20RG(3)»LTXTAD 


» IN WORKING AREA FOR 


A25 11460 




LA 


LEXIT2>LDTXT6 


* RELOCATION ROUTINE 


A2511470 




BAL 


LEXITI»LDRLC1 


RELOCATE TEXT ADDRESS 


A2511480 




TH 


LDABSL>X T 80 f 


ABSOLUTE LOADER FLAG ON 


A2511495 

11*. — ' X X t / V/ 




BC 


1>LDTXT4 


YES - BRANCH 


A2511500 




01 


6(Lh , K4RG),X , DS f 


SET FLG IN DICT f C S SYHB 


* A251151Q 

ne_ -J X Xwf X w 


LDTXT4 


CLI 


LTXTCT^ljX^B 1 


PVTF rntlNT FXfFFDR 






BC 


12,LDTXT5 








BAL 


LEXITI»LMSDG1 


UPTTF KF^RAftF *RYTF THlfNT 






DC 


C f * 


* TXT fAPH FXfFFH^ ^A' 


niJxxJJ U 




DC 


AL3CMSDG14) 


* Awn rOMTTKJIIF 


xxJQU 


LDTXT5 


LH 


LI4K2RG,LTXTCT 


fOHPflTF TFXT 1 FNGTH 


fltJiXJ/ U 




LR 


LMKlRG*Li4K2RG 


* PLUS 


A7^1 l^RO 




A 


U4K2RG,L1420RG-1 


* RELOCATED ADDR OF TEXT 


A2511590 




s 


LMK2RG»LDT0FP 


START OF TABLES OVERLAID 


A2511600 




BC 


2>LDTXT7 


YES - BRANCH 


A2511610 




BCTR 


LI4K1RG»0 


PREPARE DATA (TEXT BYTE 


A2511620 




STC 


U4K1RG>LBM0V1+1 


* COUNT AND TEXT LOADING 


A2511630 




L 


Lk ? KlRG>LWZORG-l 


* ADDRESS) AND STORE 


A2511G40 


LDHOV1 


HVC 


0(1,U4K1RG)»LBYTXT 


* TEXT IN CORE STORAGE 


A2511650 




TH 


LDFTTR>X*40 f 


1ST TIME TRANSFER FLAG 


A2511660 




BC 


12,LDCARD 


NO - BRANCH 


A251I670 




NI 


LDFTTR>X f BF f 


CLEAR FLAG 


A2511680 




HVC 


LBENTA(3)>UIZ0RG 


SAVE FIRST ADDRESS LOADED 


A2511690 




BC 


15,LDCARD 


GET NEXT CARD 


A2511700 


LBTXTG 


BAL 


LEXIT1>LMSDG1 


14RITE HESSAGE 'ADDRESS OUT- A2511710 




DC 


C ¥ » 


* SIDE RANGE OR C.S 


A2511720 




DC 


AL3CHSBG13) 


* ALREADY LOADED v AND GET 


A2511730 




BC 


15 >LDCARD 
LEXITI,LHSDG1 


* NEXT CARD 


A2511740 


LDTXT7 


BAL 


KRITEMESSAGE 'TEXT OVERLAYS A2511750 




DC 


C f f 


* LOADER TABLES' AND GET 


A25 11760 




DC 


AL3CHSDG15) 


* NEXT CARD 


A2511770 




BC 


15,LDCARD 




A2511780 




SPACE 2 




A2511790 












* A2511810 






REP CARD PROCESSING ROUTINE 


* A2511020 










* A2511830 






nmE- LDREP1 




* A25 11840 










* A2511850 


* THIS ROUTINE CONVERTS THE REP CARD INTO 


THE FORMAT OF A TXT CARD 


* A2511860 


* AND GIVES CONTROL TO THE TXT CARD PROCESSING ROUTINE. 


* A2511870 



LDREP1 
LBREP2 



LBREP3 



LDREP4 



LOREPZ 



* 



SPACE 






TH 


LDSTAT,X ¥ 03 f 


TXT,REP,RLD CARDS READ 


BC 


5,LDREP2 


SOME-BRANCH, NONE-RELOCATE 


BAL 


LEXIT3>LDSTAB 


* ENTRIES IN DICTIONARY 


01 


LDSTAT,X f 02 f 


SET FLAG REP/RLD CARD READ 


LA 


LEXIT2,6(0,0) 


CONVERT ADDRESS TO BINARY 


LA 


LEXITI,LREPAD 


* AND STORE 


BAL 


LEXIT3,LHEXB1 
LEXIT2,LTXTAD-1 




ST 




LA 


LEXITI ,LREP ID 


CONVERT ESD ID TO BINARY 


LA 


LEXIT2, 3(0,0) 


* AND STORE 


BAL 


LEXIT3,LHEXB1 
LEXIT2,LE5DID 




STH 




LA 


LEXITI, LRPBYT 


FIRST BYTE OF TEXT 


SR 


LDC0NT,LDC0NT 


CLEAR AND SET BXH COUNTER 


LA 


LBSTEP,2 




LA 


LDFINL,21 




CLI 


0(LEXIT1),X'4G* 


IS FIRST BYTE OF TEXT BLANK 


BC 


8,LDCARD 


YES-BRANCH 


LA 


LEXIT2,4(0,0) 


CONVERT 4 BYTES OF TEXT 


BAL 


LEXIT3,LHEXB1 

LEXIT2 >LRFBY T ( LDCONT ) 


* TO HEXADECIMAL 


STH 


* AND STORE 


BXH 


LDCONT ,LD5TEP ,LBREP4 


BRANCH IF 22BYTES CONVERTED 


CLI 


G( LEXITI )>X%B* 


IS FIRST BYTE A COMMA 


BC 


6,LDREP4 

LEXITI , 1 ( LEXITI , 0 ) 


NO - BRANCH 


LA 


GET NEXT FOUR BYTES 


BC 


15, LBREP3 


* AND RETURN 


CLI 


0CLEXITl),X v 40 f 


IS FIRST BYTE BLANK 


BC 


6,LDREPZ 


YES - BRANCH 


BAL 


LEXITI >LMSDG1 


14RITE MESSAGE * BLANK OR 


DC 


C* f 


* COHHA MISSING IN REP CARD 


BC 


AL3CMSDG1B) 


* AND GET NEXT CARD 


BC 


15,LDCARD 




STH 


LDCONT, LTXTCT 


STORE BYTE COUNT 


BC 


15,LDTXT3 


GO TO TXT CARD ROUTINE 


EJECT 







RLD CARD PROCESSING ROUTINE 
NAKE= LDRLD1 

THIS ROUTINE ESTABLISHES THE REAL VALUE OF EXPRESSIONS DEFINED BY 

ADSYMB DC A( SYMBOL *N) 

WHERE ALL THE REQUIRED ELEMENTS ARE PRESENT, THE ADDRESS OF THE 
EXPRESSION IS RELOCATED FIRST AND THEN THE VALUE OF THE CONSTANT 
IS CALCULATED . 

IF THE ELEMENT IN THE DICTIONARY IS STILL AN EXTERNAL, THE AVAIL- 
ABLE DATA ARE STORED IN TABLE 'LIST 1 PENDING FURTHER TREATMENT. 



A25 11880 
A2511890 
A2511900 
A2511910 
A2511920 
A2511930 
A251194Q 
A25I1950 
A2511960 
A2511970 
A2511980 
A2511990 
A2512000 
A2512010 
A2512020 
A2512030 
A2512G40 
A25 12050 
A25 12060 
A2512G70 
A25 12080 
A25I2090 
A2512100 
A2512110 
A2512120 
A2512130 
A2512140 
A2512150 
A2512160 
A2512170 
A2512180 
A2512190 
A2512200 
A2512210 
A2512220 
A2512230 
A2512240 
A2512250 
A25 12260 
A2512270 
A2512280 
A2512290 
A2S12300 
A2512310 
A2S12320 
A2512330 
A2512340 
A2512350 
A25I2360 
A2512370 
A2512380 
A2512390 
A25 12400 
A25 12410 
A25 12420 



* NOTE- TO AVOID CONTUSION, THE TERM 'POSITION HEADER f IS USED TO * 

* INDICATE THE ESID NUMBER OF THE EXPRESSION AND THE TERM *RELOCA- * 

* TION HEADER " REFERS TO THE ESID NUMBER OF THE SYMBOL CONTAINED IN * 

* THE EXPRESSION. * 



LDRLD1 


TH 


LDSTAT,X v 03 f 


TXT,REP-RLD CARDS READ 




BC 


5,LDRLD2 
LEXIT3,LDSTAB 


SOME-BRANCH , NONE -RELOCATE 




BAL 


* ENTRIES IN DICTIONARY 


LDRLD2 


01 


LDSTAT,X'03' 


SET FLAG REP-RLD CARD READ 




TN 


LDABSL>X T 60 f 


ABSOLUTE LOADER FLAG 




BC 


1»LDCARD 


YES-BRANCH 




SR 


LDC0NT>LDC0NT 


CLEAR AND INITIALIZE CNTR 




LA 


LDSTEP>4(0,0) 


* (STEP=4) 




LH 


LDFINL,LRLDCT 


* (MBER OF BYTES IN CARD) 




CLR 


LDFINL,LD5TEP 


BYTE COUNT IN CARD=0 




BC 


12»LDCARD 


YES-BRANCH 




BCTR 


LDFINL>0 


DECREMENT LENGTH BY 1 AND 




STC 


LDFINL >LDRMV1+1 
LDFINL>LDRMVZ*1 


* STORE FOR LATER HOVE 




STC 


* CHARACTER INSTRUCTIONS 


LDRLD3 


AR 


LDCONT,LDSTEP 






LH 


LNK1R6>LRELHD 


COMPUTE ADDRESS OF ENTRY IN 




SLL 


LHK1RG,3 


* REFTAB (= START OF TABLE * 




A 


LNK1RG,LDREFA 


* RELOC HEADER X 8)T0 GET 




ST 


LNK1RG,LNZLST 


* ABDR.OF SYKB.IN DICT.AND 




HVC 


U4ZLDC(4),0(U4K1RG) 


* STORE IN DICT.NORK AREA 


LDRLD4 


HVC 


LHZFLG(1),LRLFLG 


STORE CONTINUATION FLAG 




HVC 


LNZCSI(2),LP0SHD 


STORE POS-HEADER AND SYMBOL 




HVC 


LNZ0RG(3),LRLADR 


ASSBLY ADBR.IN DIC .NRK.AREA 




LA 


LEXIT2,LDRLD6 


RELOCATE ADDRESS IN DICT. 




BAL 


LEXIT1>LDRLC1 


* WORKING AREA 




01 


8(LNK4RG),X r 03 T 


SETT. 5. BEING LOADED * 




HVC 


LNZLAB(3),U4ZORG 


STORE RELOCATED ADDRESS 




LA 


LEXIT1,LDRLD5 


CALC.REAL VALUE OF EXPRESS, 




BAL 


LEXIT2,LDLST1 


* AND STORE AT RELOC. ADBR. 




L 


LNK2RG,LDLSTZ 


NOT PROCESSED-STORE ADDR.OF 




HVC 


0(8>LHK2RG),LHZLDC 


* DIC. ENTRY, FLAG AND RELOC. 

* ADDRESS IN TABLE LIST 




LA 


LRK2R6 >8 ( LNK2RG > 0 ) 




ST 


LNK2RG>LDLSTZ 


UPDATE END OF LIST TABLE 




BAL 


LEXIT1»LDTCK1 


CHECK TABLE SPACE 


LDRLD5 


BXH 


LDCONT ,LDSTEP ,LDCARD 


BR IF END OF RLD CARD 




TM 


LNZFLG,X'01 f 
8,LDRHV2 


TEST CONTINUATION FLAG 




BC 


OFF -BRANCH 


LBRMV1 


HVC 


LRLFLG,LRLFLG*4 


ON -MOVE UP NEXT X BYTES BY 




BC 


15,LDRLD4 


* FOUR POSITIONS 


LBRW2 


HVC 


LRELHD>LRELHD+8 


HOVE UP NEXT X BYTES BY 




BC 


15,LDRLD3 


* EIGHT POSITIONS 


LDRLD6 


BAL 


LEXIT1,LHSDG1 


NRITE MESSAGE 'ADDRESS NOT 




DC 


C f * 


* RELOCATABLE* AND SKIP TO 




DC 


AL3CMSBG1M) 


* NEXT ENTRY 




BC 


15>LDRLD5 






SPACE 2 





* END CARD PROCESSING ROUTINE * 



A2512430 
A25 12440 
A25I2450 
A25124&0 
A2512470 
A25 12480 
A2512490 
A2512500 
A2512510 
A25 12520 
A2512530 
A2512540 
A2512550 
A2512560 
A2512570 
A25 12580 
A2512590 
A2512600 
A2512&1G 
A2512620 
A2512630 
A2512640 
A2512650 
A2512660 
A2512670 
A25 12680 
A2512690 
A2512700 
A2512710 
A2512720 
A2512730 
A2512740 
A2512750 
A25127G0 
A2512770 
A25 12780 
A2512790 
A2512800 
A25 12810 
A2512820 
A2512830 
A25 12840 
A25 12850 
A2512860 
A2512870 
A25 12880 
A25 12890 
A2512900 
A2512910 
A25 12920 
A2512930 
A2512940 
A25 12950 
A25129G0 
A25 12970 



NAHE= LDEND1 



* THIS ROUTINE LOOKS FOR A PROGRAM EXECUTION ENTRY POINT, AND GOES * 

* THROUGH TABLE LIST TO CALCULATE, WHERE POSSIBLE, THE EXPRESSIONS * 

* IT CONTAINS. PROCESSED EXPRESSIONS ARE REMOVED FROM THE TABLE * 

* AND THE GAPS CLOSED UP. * 

SPACE 

RELOCATE ENTRIES IN DICT. 
TEST IF ENTRY POINT FOUND 
WES-BRANCH 
NO, THEN LOOK FOR ENTRY 
SAVE RETURN ADDRESS 
CLEAR LIST WORKING AREA 
INITIALIZE COUNTER 

TRANSFER LIST TABLE ELEMENT 

* TO DICT. WORKING AREA 
BRANCH IF END OF LIST TABLE 
CALC.REAL VALUE OF EXPRESS 

* AND STORE AT RELOC.ADDR. 
NOT PROCE5SED-CLOSE GAP IN 

* LIST TABLE AND PROCESS 

* NEXT ELEBENT 
UP DATE END OF LIST TABLE 
CLEAR SOME FLAGS 
LOAD NEXT SECT. OR LDT PSW 



LDEND1 



LDENDZ 



LDEND3 



LDEND4 



LEXIT3,LDSTAC 

LDENTR,X T 10 f 

8,*+8 

LEXIT3,LDENT1 

LEXIT4, RESENT 

LNZLST(4),LWZLST 

LDCONT,LDFINL,LDLSTA 

LDFINL,1(LDFINL) 

LMIDRG,LDCONT 

LWZLDC(8),0(LDCONT) 

LDCONT ,LDSTEP ,LDEND4 

LEXIT1,LDEND3 

LEXIT2,LDLST1 

0(8,LMIDRG),LWZLDC 

LMIDRG,LDSTEP 

15,LDEND3 

LMIDRG»LDLSTZ 

LDINIT,X*78 f 

15,LEXIT4 



LDLDT1 



LDT CARD PROCESSING ROUTINE 
NAHE= LDLDT1 
THIS ROUTINE TERMINATES THE LOADING PROCESS BY- 

1. LOOKING FOR AN ENTRY POINT INTO THE PROGRAM. 

2. LOOKING FOR ANY REMAINING EXTERNAL SYMBOLS IN THE DICTIONARY 
AND WRITING A MESSAGE FOR ANY IT FINDS. 

3. WRITING THE PROGRAM ENTRY POINT DETERMINED ABOVE IF THE LOADER 
PRINTS THE LOADING CONTROL MESSAGES. OTHERWISE, IF ANY WARNING 
OR ERROR CONDITION HAS BEEN DETECTED, THE LOADER ISSUES A MES- 
SAGE ON THE 1052 PRINTER-KEYBOARD AND ENTERS THE WAIT STATE. 



TRANSFERRING CONTROL TO THE SELF-LOADING PROGRAM GENERATOR 
TO THE PROGRAM LOADED. 



U'V\>V,V\>.W 



OR 



SPACE 

BAL LEXIT3,LDENT1 
TM LDINIT,KW 



LOOK FOR ENTRY POINT 
HAS END CARD BEEN READ 



A251Z98Q 
A2512990 
A2513000 
A2513010 
A2513020 
A251303Q 
A2513Q40 
A2513G50 
A25130&0 
A2513070 
A2513G3Q 
A2513D90 
A2513100 
A2513110 
A25I3120 
A2513130 
A251314Q 
A2513150 
A2513160 
A2513170 
A2513180 
A2513190 
A2513200 
A251321Q 
A2513220 
A251323G 
A2513240 
A2513250 
A25132G0 
A2513270 
A2513280 
A2513290 
A251330Q 
A2513310 
A251332D 
A2513330 
A2513340 
A2513350 
A2513360 
A25 13370 
A25I3380 
A2513390 
A2513400 
A2513410 
A2513420 
A2513430 
A25I3^0 
A2513450 
A2513460 
A2513470 
A2513480 
A2513490 
A251350Q 
A2513510 
A2513520 



LDLDT2 
L0LDT3 



LDLDT4 



LDLDT5 
LDLDT6 



BC 


12,LDLDT2 


YE 5 -BRANCH 


BAL 


LEXIT1,LHSDG1 


I4RITE HESSAGE 'LOT CARD NOT 


DC 


C f • 


* PRECEDED BY END CARD 


DC 


AL3CHSDG19) 


* AND CONTINUE 


BAL 


LEXIT3,LDSTAC 


RELOCATE ENTRIES IN DICT. 


BAL 


LEXIT4,LDEND2 




LM 


LDCONT > LDFINL > LDDICA 


INITIALIZE COUNTER 


BXLE 


LDCONT >LD5TEP ,LDLDT4 


BRANCH IF END OF DICT. 


TH 


8(LDCONT),X f 02 f 


IS ENTRY "EXTERNAL* 


BC 


8,LBLDT3 


NO - GO TO NEXT ENTRY 


HVC 


PRTBUF(6)>0(LDCONT) 


PRINT HESSAGE 'EXTERNAL 


KC 


PRTBUF*6(2),PRTBUFH 


* SYHBOL HAS NO REAL 


BAL 


LEXIT1,LHSDG1 


* DEFINITION* 


DC 


C* * 




BC 


AL3CHSDG1A) 


* 


BC 


15>LDLDT3 


GO TO NEXT ENTRY 


LA 


LEXIT1,LDTPSM 


CONVERT TRANSFER PSI4 


L 


LEXIT2,AHSDGZ 


HEXADECIMAL AND WRITE IT 


BAL 


LEXIT3,LBHEX1 


* 


HVC 


FRTBUF(8),MESTXT 


CLEAR CARD IDENTIFICATION 


BAL 


LEXIT1,LPRINT 


* 


DC 


C'l* 




DC 


AL3CHSDG1Z) 


* 


LB 


LEXIT2,L0DDEV 


GET LOAD DEVICE ADDRESS 


LTR 


LEXIT2,LEXIT2 


IS IT ZERO - YES, DEVICE IS 


BC 


8,LDLDT5 


* NOT A 2400 TU, BRANCH -NO, 


BAL 


LEXIT1,LDREM1 


* REMIND MAGNETIC TAPE 


TH 


LDLIST>X*03* 


HAS ANY WARNING, ERROR CON- 


BC 


4,LDST0P 
Q,LDEDIT 


* -DITIQN BEEN FOUND .YES, BR 


BC 


* NO, GO TO EDIT PRG. LOADED 


CHOP 


2,4 


* OR, 


SVC 


3 


* LOAD TRANSFER PS14 


DC 


A(LDTPSM) 




SPACE 5 





* 
* 
* 

* 
* 
* 
* 
* 



ENTRY POINT RESEARCH SUBROUTINE 
NAME= LDENT1 
CALLING SEQUENCE - BAL LEXIT3,LDENT1 



THIS SUBROUTINE IS ENTERED FROH THE LDT 
ROUTINES. 



AND END CARD PROCESSING 



********* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 





SPACE 






LDENT1 


HVC 


I3!Z0RG( 3 ) , LENDAD 


FETCH ABSOLUTE ENTRY FROH 




CLI 


LENBAD,X*40* 


END CARD AND TEST IF BLANK 




BC 


8,LDENT3 


YES - BRANCH 




HVC 


U4ZC5I(2),LESDIB 


FETCH ESD IDENT. 




LR 


LEXIT2,LEXIT3 


RELOCATE ENTRY POINT ADDR. 




BAL 


LEXIT1,LDRLC1 


EXIT TO CALLER IF INVALID 




HVC 


LDENTA(3),LNZORG 


STORE RELOC* TRANSFER ADDR. 


LDENT2 


NI 


LBENTR,X'EF' 


CLEAR FLAG 'END CARD ADDR. 



A2513530 
A251354G 
A2513550 
A25135S0 
A25I3570 
A2513580 
A2513590 
A2513600 
A2513G10 
A2513620 
A2513630 
A2513640 
A2513650 
A2513660 
A2513670 
A2513&80 
A25I369G 
A25137G0 
A2513710 
A25I3720 
A2513730 
A2513740 
A2513750 
A2513760 
A2S13770 
A25 13780 
A2513790 
A2513800 
A2513810 
A2513820 
A2513830 
A2513840 
A2513850 
A2513860 
A2513370 
A2513350 
A2513890 
A2513900 
A2513910 
A2513920 
A2513930 
A2513940 
A25I3950 
A2513960 
A2513970 
A2513980 
A2513990 
A251400Q 
A2514G10 
A2514020 
A251403G 
A2514040 
A2514050 
A2514060 
A251407G 



BCR 15,LEXIT3 

LDENT3 CLI LESNME,X f 40 f 

BCR 8,LEXIT3 

LR LEXIT2,LEXIT3 

BAL LEXIT1,LDM0RI 

MVC LBENTA ( 3 ) > 9 ( LDCONT ) 

BC 15,LDENT2 



* NOT SAVED* AND EXIT 
ENTRY POINT SYMBOL IS BLANK 
YES - EXIT BACK TO CALLER 
LOOK UP SYMBOL IN DICT. AND 

* EXIT IF NOT FOUND 
FETCH SYMBOL ORIGIN 



CHECK TABLES SUBROUTINE 

NAME= LDTCK1 

CALLING SEQUENCE - BAL LEXIT1,LDTCK1 

THIS ROUTINE CHECKS AND ADJUSTS THE LOADER TABLE BLOCK. 

DURING LOADER INITIALIZATION (SEE THAT ROUTINE), THE START AND 
END OF THE DICTIONARY (LDDICA,LDDICZ) AND THE START OF THE REFER- 
ENCE TABLE (LDREFA) ARE SET AT THE END OF THE TABLE BLOCK WHEREAS 
THE START AND END OF THE LIST TABLE (LDLSTA,LDLSTZ) ARE SET AT 
THE START OF THE TABLE BLOCK. 

THE LOADER ENTRY OR RESUME ROUTINE SETS THE END OF THE REFERENCE 
TABLE (LDREFZ) AT THE START SO AS TO CANCEL ANY ENTRIES THAT THIS 
TABLE MAY CONTAIN AND CALLS UP THE PRESENT ROUTINE. 

THE PRESENT ROUTINE IS ALSO CALLED UP EVERY TIME AN ENTRY IS MADE 
IN ANY OF THE THREE TABLES IN THE TABLE BLOCK. 

THE GAP BETWEEN THE FIRST TWO TABLES (LDELT1) IS CHECKED AND, IF 
LESS THAN 80 BYTES, A MESSAGE IS WRITTEN AND LOADING STOPS (WAIT 
STATE). IF IT IS GREATER, THE GAP BETWEEN THE LAST TWO TABLES 
(LDELT2) IS TESTED AND, IF LESS THAN 20 BYTES, THE MIDDLE TABLE 
IS SHIFTED TO THE LEFT BY A QUARTER OF THE EXISTING GAP BETWEEN 
IT AND THE FIRST TABLE. CONTROL THEN RETURNS TO THE CALLER. 

NOTE- ENTRIES ARE PLACED CONSECUTIVELY FROM LEFT TO RIGHT IN 
TABLES LIST AND REFERENCE, BUT FROM RIGHT TO LEFT IN THE DICTION- 
ARY. 



LDTCK1 



SPACE 






L 


LWK1RG, LDREFA 


START OF REF. TABLE MINUS 


S 


LWK1RG,LDLSTZ 


* END OF LIST TABLE IS LESS 


C 


LWK1RG,LDELT1 


* THAN REQU. GAP (80 BYTES) 


BC 


4,LDTCKX 


YES - BRANCH 


L 


LWK2RG,LDDICZ 


END OF DICT. MINUS END OF 


S 


LWK2RG, LDREFZ 


* REF. TABLE IS LESS THAN 


C 


LWK2RG,LDELT2 


* REQUIRED GAP (20 BYTES) 


BC 


10,LDTCKZ 


NO - BRANCH 


SRL 


LWK1RG,4 


MOVE MIDDLE TABLE OF BLOCK 


SLL 


LWK1RG,2 


* (REF. TABLE) TO THE LEFT 


LB 


LDCONT, LDFINL, LDREFA 


* BY ONE QUARTER OF THE GAP 



A2514080 
A251409G 
A2514100 
A2514110 
A2514120 
A2514130 
A2514140 
A2514150 
A2514160 
A25I4170 
A25I4I80 
A2514190 
A2514200 
A25142I0 
A25I4220 
A2514230 
A2514240 
A2514250 
A2514260 
A25 14270 
A25 14280 
A2514290 
A25143G0 
A2514310 
A2514320 
A2514330 
A251434G 
A2514350 
A2514360 
A2514370 
A2514380 
A2514390 
A25144Q0 
A2514410 
A2514420 
A2514430 
A2514440 
A2514450 
A251446G 
A25 14470 
A2514460 
A2514490 
A2514500 
A2514510 
A2514520 
A2514530 
A2514540 
A2514550 
A2514560 
A2514570 
A25 14580 
A2514590 
A2514G00 
A2514G10 
A2514G20 





LR 


LWK2RG,LBC0NT 


* BETWEEN THE FIRST TWO 




SR 


LHK2RG,LNK1RG 
LWK2RG,LDREFA 


* TABLES AND ADJUST ADDRESS 




ST 


* OF START OF REFERENCE 




BC 


15,LDTCK3 


* TABLE 


LDTCK2 


AR 


LWK2RG>LDSTEP 




LDTCK3 


HVC 


0(8>LWK2RG),Q(LDC0NT) 
LDCONT , LD STEP > LDTCK2 






BXLE 


* 




ST 


LWK2RG,LDREFZ 


STORE NEW EHD OF REF. TABLE 


LDTCKZ 


BCR 


15,LEXIT1 


RETURN TO CALLER 


LDTCKK 


BAL 


LEXIT1,LMSDG1 


WRITE MESSAGE * INSUFFICIENT 




DC 


CI* 


* SPACE AVAILABLE FOR 




DC 


AL3(MSBG21) 


* LOADER TABLES v AND STOP 




BC 


15,LDSTOP 






SPACE 


5 





ADDRESS RELOCATION SUBROUTINE 

NAHE= LDRLC1 

CALLING SEQUENCE - LA LEXIT2, 

BAL LEXIT1,LDRLC1 
EXITS - LEXIT1 IF ADDRESS IS RELOCATED 

LEXIT2 IF ADDRESS IS NOT RELOCATED 



* 

* 

* THIS ROUTINE RELOCATES ASSEMBLY ADDRESSES. IF THE ABSOLUTE LOADER 

* FLAG IS ON, IT JUST CHECKS THAT THE LOCATION COUNTER IS WITHIN 

* THE BOUNDS OF THE STORAGE AREA RESERVED FOR LOADING. 



OTHERWISE IT LOOKS UP THE REFERENCE TABLE AT THE ADDRESS DETER- 
MINED BY THE ESID NUMBER . IF THE ELEMENT AT THIS ADDRESS IS A 
CONTROL SECTION, IT NEXT EXAMINES THE DICTIONARY ELEMENT GIVEN BY 
THE REFTAB ELEMENT. IF THE CONTROL SECTION TYPE IN THE DICTIONARY 
IS f BEING LOADED' , THE ADDRESS IN THE WORKING AREA IS RELOCATED 
BY ADDING TO IT THE RELOCATED ADDRESS OF THE CONTROL SECTION 
FOUND IN THE DICTIONARY AND THEN SUBTRACTING THE ASSEMBLY ADDRESS 
OF THE CONTROL SECTION FOUND IN REFTAB. CONTROL THEN RETURNS TO 
THE CALLER. 

IN ALL OTHER CASES RELOCATION IS NOT POSSIBLE AND CONTROL RETURNS 
TO THE CALLER AT ANOTHER ENTRY THAN WHEN RELOCATION IS EFFECTED. 





SPACE 






LDRLC1 


NI 


LWZTYP,X*GO* 


CLEAR LW2TYP 




TM 


LDAB5L>X T SG f 


ABSOLUTE LOADER FLAG 




BC 


1,LDRLCA 


YES - BRANCH 


LDRLCC 


NI 


LDFLAG >X*F7 f 


CLEAR *ESD ID = 0 ? FLAG 




LH 


LWK1RG,LWZCSI 


PICK UP ESD ID 




LTR 


LWK1RG,LWK1RG 


IS ESD ID = 0 




BC 


8,LDRLC2 


YES - BRANCH 




BCTR 


LWK1RG,0 


COMFUTE ADDR. OF ELEMENT IN 




SLL 


LWK1RG,3 


* REF. TABLE (ESD ID X 8) 




BC 


15,**8 


* AND SKIP NEXT INSTRUCTION 


LDRLC2 


01 


LDFLAG,X f 08 f 


SET FLAG f ESID ID = 0 ? 



A2514630 
A251464Q 
A25 14650 
A2514660 
A2514670 
A2514680 
A25I4&90 
A2514700 
A2514710 
A25 14720 
A2514730 
A2514740 
A25 14750 
A2514760 
A25 14770 
A2514780 
A2514790 
A2514S0O 
A2514810 
A2514520 
A2514830 
A25 14840 
A25 14850 
A2514860 
A25 14870 
A25 14880 
A2514890 
A2514900 
A2514910 
A25 14920 
A2514930 
A2514940 
A2514950 
A2514960 
A25 14970 
A25 14980 
A2514990 
A2515000 
A2515010 
A2515020 
A2515030 
A2515040 
A2515Q50 
A2515060 
A2515070 
A2515080 
A2515090 
A2515100 
A2515110 
A2515120 
A2515130 
A2515140 
A2515150 
A2515160 
A2515170 



LDRLC3 



LDRLC4 



LDRLC5 



LDRLC6 



LDRLCA 



A 


LHK1RG,LDREFA 


ADDR. FIRST ELEM. IN REFTAB 


LH 


LWK2RG >U4K3RG ,LDREFAH 


INITIALIZE REFTAB SEARCH 


BXH 


LJ4K 1RG > L14K2RG > 0 ( LEXIT2 ) 


BID OF TABLE REACHED 


HVC 


LWZREF(8),Q(LNK1RG) 


READ OUT DBLE ND FRH REFTAB 


TM 


LRZTIP>X f G3 ? 


TYPE IN REF TABLE IS CS. 


BC 


8>LDRLC5 


YES - BRANCH 


TH 


LDFLAG,X T 08 f 


IS FLAG *ESD ID = O f ON 


BC 


1,LDRLC3 


YES - GO TO NEXT ELEMENT 


BCR 


15,LEXIT2 


EXIT (NOT RELOCATED) 


L 


LWK4RG>U4ZREF 


GET ADDR. OF CS. IN DICT. 


TH 


8(LMK4RG),X'G4 f 


DICT . SHOWS f C . S .ALREADY 


BC 


10>LDRLC6 


* LOADED f . YES-BRANCH 


TH 


LDINIT>X ? G4 f 


TEST IF END ADDR RELOCATION 


BCR 


1>LEXIT2 


NO-EXIKNOT RELOCATED) 


CLC 


LS4ZORG(3)>LWZADR 


ADDR. LOWER THAN START OF CS 


BC 


4>LDRLC4 


YES-BRANCH 


LH 


LWK5RG , 6 ( LWK4RG > 0 ) 


CS. LENGTH FROM DICT. AND 


A 


LHK5RG,U4ZADR-1 


* ASSEMBLY ADDR FROM REFTAB 


CL 


LKK5RG>U4ZORG-l 


IS ADDR, BEYOND END OF CS. 


BC 


I2,LDRLC4 


YES-BRANCH 


L 


L14K5RG>8(LNK4RG,0) 


COMPUTE RELOCATED ADDRESS 


SLL 


LNK5RG>6 


* (LOAD RELOCATED ADDR. OF 


SRL 


LI4K5RG>8 


* CS.>CLEAR FIRST BYTE > ADD 


A 


LNK5RG»LWZ0RG-1 


* ASSEMBLY ADDR. TO BE 


S 


LHK5RG.U4ZADR-1 
U4K5RG»U4ZORG-l 


* RELOCATED LESS ASSEMBLY 


ST 


* ADDRESS OF CONTROL SECT. 


BCR 


15,LEXIT1 


EXIT (RELOCATED) 


L 


LWK5RG,LMZ0RG-1 


CHECK THAT ADDRESS IS LONER 


CL 


Uk l K5RG>LDT0PP 


* THAN START OF TABLE BLOCK 


BCR 


10»LEXIT2 


NO-EXIT (NOT RELOCATED) 


CL 


LMK5RG,L0CCTR 


ADDRESS LOWER THAN LOCCTR 


BCR 


10,LEXIT1 


NO - EXIT (RELOCATED) 


BCR 


X5»LEXIT2 


YES - EXIT (NOT RELOCATED) 


EJECT 







SPACE 

LDHOR1 LH LDCONT,LDFINL,LDDICA INITIALIZE DICT. LOOK-UP 



LOOK-UP SYMBOL IN DICTIONARY SUBROUTINE 

NAME= LDMOR1 

CALLING SEQUENCE - LA LEXIT2, 

BAL LEXIT1,LDH0R1 
EXITS - LEXIT1 IF SYMBOL IS FOUND 

LEXIT2 IF SYMBOL IS NOT FOUND 

THIS ROUTINE LOOKS FOR A SYMBOL IN THE DICTIONARY. IF THE SYMBOL 
IS FOUND > CONTROL RETURNS TO CALLER > BUT IF NOT, A NEH ENTRY IS 
HADE IN THE DICTIONARY FOR THIS SYMBOL. 



THIS ROUTINE IS ENTERED AT LDHOR2 WHEN A SYMBOL MUST 
IN THE DICTIONARY AND NO LOOK-UP IS REQUIRED. 



BE ENTERED 



A2515180 
A25I519Q 
A25152QG 
A2515210 
A2515220 
A25I523Q 
A2515240 
A2515250 
A25 15260 
A2515270 
A2515280 
A2515290 
A2515300 
A2515310 
A2515320 
A2515330 
A2515340 
A2515350 
A2515360 
A2515370 
A2515380 
A25I539D 
A25I54G0 
A251541D 
A25I542G 
A2515430 
A2515440 
A2515450 
A251546G 
A2515470 
A2515480 
A2515490 
A2515500 
A2515510 
A2515520 
A2515530 
A2515540 
A2515550 
A251556G 
A2515570 
A2515550 
A2515590 
A2515600 
A2515610 
A2515620 
AZ515630 
A2515640 
A251565Q 
A251S660 
A2515670 
A2515680 
A2515690 
A2515700 
A2515710 
A2515720 



LDCGMP 


BXLE 


LDCONT > LD STEP , LNOTFD 


BR. IF DICT. EXHAUSTED 




CLC 


0(6* LBCON T ) * LESLIE 


ARE SYMBOLS IDENTICAL 




BC 


7*LDC0MP 


HO - GET NEXT SYHBOL 




BCR 


15>LEXIT1 


EXIT (SYHBOL FOUND) 


LDH0R2 


LM 


LDCONT >LDFINL ,LDDICA 


INITIALIZE DICT. LOOK-UP 




BXH 


LDCONT, LDSTEP,* 


60 TO END OF DICTIONARY 


LNOTFD 


hvc 


0(6, LDCONT ),LESNHE 


STORE SYHBOL IN DICT* 




AR 


LDSTEP, LDCONT 


GO TO NEXT ELEMENT POSITION 




ST 


LDSTEP,LDDICZ 


UPDATE ADDR.OF END OF DICT. 




BCR 


15,LEXIT2 


EXIT (SYHBOL NOT FOUND) 




EJECT 







* RESERVE STORAGE SUBROUTINE * 



9* 



NAME= LDRES1 

CALLING SEQUENCE - BAL LEXIT3,LDRES1 

THIS ROUTINE ADJUSTS THE LOCATION COUNTER TO A DOUBLE WORD BOUND- 
ARY, STORES IT IN THE DICTIONARY AS THE STARTING ADDRESS OF THE 
SECTION TOGETHER WITH THE LENGTH OF THE SECTION UNDER THE CONTROL 
SECTION SYHBOL . THE LOCATION COUNTER IS THEN INCREMENTED BY THE 
LENGTH OF THE SECTION AND CHECKED THAT IT DOES NOT EXCEED THE 
AVAILABLE STORAGE. IF IT DOES, A HESSAGE IS WRITTEN AND LOADING 
STOPS (WAIT STATE). OTHERWISE A MESSAGE GIVES THE NAME AND START 
ADDRESS OF THE CONTROL SECTION, IF THE LOADER PRINTS THE LOADING 
CONTROL MESSAGES, AND CONTROL IS RETURNED TO THE CALLER. 





SPACE 






LDRES1 


L 


LWK1RG>L0CCTR 


CHECK VALUE OF LOCATION 


LDRES2 


TM 


L0CCTR*3,X'07 ? 


* COUNTER AND INCREMENT 




BC 


6>LDRES3 


* BY STEPS OF 1 UNTIL IT 




LA 


LNK1RG , 1 ( LWK1RG , 0 ) 


* IS A MULTIPLE OF 8 




ST 


LWK1RG,L0CCTR 






BC 


15,LDRES2 




LDRE53 


HVC 


6(2,LDC0NT),LSECLG 


STORE CONTR. SECT. LENGTH 




ST 


LWK1RG ,8 (LDCONT , 0 ) 


* ORIGIN AND TYPE IN 




NI 


8(LDC0NT),XW 


* DICTIONARY 




AH 


LNX1RG,L5ECLG 


UPDATE LOCCTR BY LENGTH OF 




C 


LWK1RG,LDT0PP 


* SEGMENT AND CHECK IF IT 




ST 


LWK1R6,L0CCTR 


* OVERLAPS THE TABLE BLOCK 




BC 


1G,LDRES6 


YES-BRANCH 


LDRES4 


HVC 


PRTBUF(6),G(LBCONT) 


TRANSFER CONTROL SECTION 




XC 


PRTBUF*6(2),PRTBUF*6 


* NAME TO PRINT BUFFER 




LA 


LEXIT1 ,9( LDCONT , 0 ) 


CONVERT LOADING ADDRESS 


LDRES5 


L 


LEXIT2,AHSDGK 


* TO HEXADECIMAL 




ST 


LEXIT3,SAVREG 


* 




BAL 


LEXIT3,LBHEX1 






BAL 


LEXITI,LPRINT 


WRITE MESSAGE 'XXXXXX CON- 




DC 


C f 


* TROL SECTION LOADED AT 




DC 


AL3(HSDG1K) 


* YYYYYY* 




L 


LEXIT3,SAVREG 






BCR 


15,LEXIT3 


EXIT TO CALLER 



A251573Q 
A2515740 
A2515750 
A2515760 
A2515770 
A25 15780 
A251579G 
A25158Q0 
A2515810 
A25 15820 
A2515830 
A2515840 
A2515850 
A2515860 
A2515370 
A25158O0 
A2515890 
A2515900 
A2515910 
A2515920 
A2515930 
A2515940 
A25I5950 
A251596G 
A2515970 
A2515930 
A2515990 
A2516G0Q 
A25160IG 
A2516020 
A2516030 
A2516Q40 
A2516C5G 
A2516060 
A2516070 
A2516G80 
A2516090 
A25161G0 
A2516110 
A251612G 
A251613Q 
A2516140 
A2516150 
A2516160 
A251617G 
A2516180 
A2516190 
A2516200 
A2516210 
A2516220 
A251623Q 
A251624G 
A2516250 
A25 16260 
A2516270 



LDRES6 BAL LEXITI,LMSBG1 
DC C'l' 
DC AL3CMSDG23) 
BC 15,LDST0P 
EJECT 



WRITE MESSAGE 'INSUFFICIENT 

* STORAGE AVAILABLE FOR 

* THIS PROGRAM T 

EXIT TO DUMP AND STOP 



RELOCATE ENTRIES IN DICT. SUBROUTINE 

NAME= LDSTA- 

CALLING SEQUENCE - BAL LEXIT3,LDSTA- 

THIS ROUTINE EXAMINES ALL THE ELEMENTS IN THE DICTIONARY TO RELO- 
CATE ANY OUTSTANDING ENTRIES WHERE POSSIBLE. IF THE ROUTINE IS 
ENTERED FROM THE END CARD PROCESSING ROUTINE, THE STATUS OF THE 
CONTROL SECTION BEING LOADED IS CHANGED TO 'ALREADY LOADED*. 

IF THE ENTRIES CANNOT BE RELOCATED, A MESSAGE IS WRITTEN, THE 
ASSEMBLY ADDRESS IS CLEARED AND THE TYPE IS SET TO 'ENTRY RELOCA- 
TED' TO AVOID TREATING THIS ENTRY AGAIN THE NEXT TIME THIS 
ROUTINE IS CALLED- 





SPACE 






LDSTAC 


NI 


LDSTAT,X'F3' 


CLEAR FLAGS 'TXT, REP, RLD 




BC 


15,**S 


* READ', 'END CRD NOT FOUND' 


LDSTAB 


01 


LDSTAT,X'OD f 


SET ABOVE FLAGS 




LM 


LDCONT,LDFINL,LDDICA 


INITIALIZE DICTIONARY SCAN 


LD5TA1 


BXLE 


LDCONT,LDSTEP>0(LEXIT3) 


EXIT IF DICT. IS EXHAUSTED 




TM 


8(LDCONT),X'01' 


ELEMENT IS ENTRY 




BC 


8, LDSTAB 


NO - BRANCH 




TM 


8(LDC0NT),X'05 f 


ENTRY IS RELOCATED 




BC 


1,LDSTA1 


YES - BRANCH 




MVC 


LNZBIC(6),6(LDC0NT) 


MOVE ELEMENT TO DIC.WK.AREA 




LA 


LEXIT2>LD5TA3 
LEXIT1,LDRLC1 


RELOCATE ENTRY AND SET 




BAL 


* 'ENTRY RELOCATED' IN 


LDSTA2 


01 


LNZTYP,X'G5' 


* DICTIONARY WORK AREA 




MVC 


6(6,LDC0NT),LWZDIC 


MOVE ELEMENT BACK TO DICT. 




BC 


15,LDSTA1 


GO TO NEXT ELEMENT 


LD5TA3 


xc 


LW20RG(3),LWZ0RG 
PRTBUF(6),0(LBCONT) 


CLEAR ASSEMBLY ADDRESS 




MVC 


STORE DICT. SYMBOL IN 




XC 


PRTBUF*6(2),PRTBUF+6 


* PRINT BUFFER 




ST 


LEXIT3,SAVREG 


SAVE RETURN ADDRESS 




BAL 


LEXIT1,LMSDG1 


WRITE MESSAGE 'ENTRY POINT 




DC 


C ' 


* NOT RELOCATABLE' 




DC 


AL3CMSDG1L) 






L 


LEXIT3,SAVREG 


RESTORE RETURN ADDRESS 




BC 


15,LDSTA2 


CONTINUE 


LDSTA4 


TM 


LDFLAG,X'08' 


FLAG 'TKT,REP,RLD READ' ON 




BC 


1,LDSTA1 


YES - GET NEXT ELEMENT 




TM 


8(LBC0NT),X'G8' 


DIC. SHOWS'C.S. BEING LOADED' 




BC 


12,LDSTA1 
8(LDCONT),X'0C f 


NO - GET NEXT ELEMENT 




XI 


SET 'C.S. LOADED' IN DICT. 




BC 


15>LDSTA1 


GO TO NEXT ELEMENT 



A2516230 
A2516290 
A2516300 
A2516310 
A2516320 
A2516330 
A251634G 
A2516350 
A251636G 
A251637G 
A2516380 
A2516390 
A25164Q0 
A2516310 
A251642Q 
A2516430 
A2516440 
A2516450 
A2516460 
A2516470 
A25164S0 
A25I649Q 
A2516500 
A2516510 
A251652G 
A2516530 
A2516540 
A2516550 
A2516560 
A2516570 
A25 16580 
A2516590 
A25166Q0 
A251661G 
A2516620 
A2516630 
A2516640 
A2516650 
A2516660 
A2516670 
A2516680 
A25 16690 
A2516700 
A2516710 
A2516720 
A2516730 
A2516740 
A2516750 
A2516760 
A25 16770 
A2516780 
A2516790 
A2516800 
A2516810 
A2516820 



EJECT 



CALCULATION OF RLD EXPRESSION VALUE SUBROUTINE 

NAHE= LDLST1 

CALLING SEQUENCE - LA LEXIT2, 

BAL LEXIT1>LDLST1 
EXITS - LEXIT1 IF ELEMBIT IS PROCESSED 

LEXIT2 IF ELEMENT IS NOT PROCESSED 

THIS ROUTINE CALCULATES THE REAL VALUE OF THE CONSTANT CSYMBOL+N) 
TO BE LOADED AT ADDRESS AD5YM8. 

AN ANALYSIS OF THE DICTIONARY AND REFERENCE TABLE ELEMENTS RELAT- 
ED TO THE SYMBOL RESULTS AS FOLLONS- 

1. DICTIONARY ELEMENT IS EXTERNAL - NO CALCULATION POSSIBLE. 

2. DICTIONARY ELEMENT IS C.S. OR ENTRY AND REFTAB ELEMENT IS C.S. 
(ESID = 1> I.E. SYMBOL BELONGS TO SECTION) - THE ASSEMBLY AD - 
RESS OF THE CONTROL SECTION FOUND IN REFTAB IS SUBTRACTED FROM 
THE RELOCATED ADDRESS IN THE DICTIONARY AND THE RESULT IS 
ADDED TO OR SUBTRACTED FROM THE INITIAL VALUE OF THE CONSTANT. 



at atac \c ^ : 



3. 



DICTIONARY ELEMENT IS C.S. OR ENTRY AND REFTAB ELEMENT IS EX- 
TERNAL (ESID = 2 TO 15) - THE RELOCATED ADDRESS OF THE C.S. OR 
ENTRY IN DICTIONARY IS ADDED TO OR SUBTRACTED FROM THE INITIAL 
VALUE OF THE CONSTANT. 



4. DICTIONARY ELEMENT IS C.S. OR ENTRY AND THERE IS NO REFTAB 
ELEMENT. THIS MEANS THAT THE ROUTINE HAS BEEN CALLED BY THE 
END CARD PROCESSING ROUTINE AND THAT THE REFTAB ELEMENT HAS 
BEEN TRANSFERRED TO TABLE 'LIST' - TREATMENT AS FOR (3) ABOVE . 



LDLST1 



LDLST2 



SPACE 






LM 


Lk'KlRG ,LNK2RG ,L14ZLST 


SYMB.ADDR.IN REFTAB AND DIC 


TM 


8(LNK2RG)>X f 02 f 


DICT. ELEMENT IS EXTERNAL 


BCR 


1 LEXIT2 


YES - EXIT (NOT PROCESSED) 


MVC 


U£BIC(&)>6(LNK2RG) 


RELOCATED ADDR TO WORK AREA 


NI 


LRZTYP>X'QQ T 


CLEAR TYPE IN DIC.I40RK AREA 


L 


LNK2RG>LNZORG-l 


RELOCATED ADDR OF SYMBOL 


LTR 


LHK1RG,LHK1RG 


END CARD BEING PROCESSED 


BC 


8>LDL5T2 


YES-BRANCH 


TM 


4(LWKlRG)>X f G2 T 


TYPE IN REFTAB IS EXTERNAL 


BC 


1,LDLST2 


YES-BRANCH 


S 


LHK2RG , 4 ( LWK1RG > 0 ) 


SUBTRACT C.S. ASSEMBLY ADDR 


L 


LHK1RG,LWZLAD-1 


ADDR. OF CONST. TO BE CALC. 


NI 


LDMVCl*l>X'OG* 
LDMVC2+l>X f G0 f 


CLEAR LENGTH IN MOVE 


NI 


* INSTRUCTIONS 


LH 


LNK4RG,LDMVC2+4 


SAVE ADDR. OF NORKING AREA 


TM 


LWZFLG,X f QC 


CONSTANT LENGTH = 4 BYTES 


BC 


1,LDLST3 


YES - BRANCH 



A251683G 
A2516840 
A2516S50 
A251686G 
A2516870 
A25 16880 
A2516890 
A2516900 
A2516910 
A2516920 
A25I6930 
A251694Q 
A2516950 
A251696Q 
A2516970 
A251698Q 
A2516990 
A2517000 
A2517010 
A2517020 
A2517030 
A2517G40 
A2517050 
A25 17060 
A2517Q70 
A2517G8G 
A2517090 
A251710G 
A2517110 
A251712G 
A2517130 
A2517I40 
A2517I50 
A251716G 
A251717G 
A2517180 
A2517190 
A251720G 
A2517210 
A2517220 
A2517230 
A25 17240 
A251725G 
A2517260 
A251727G 
A2517280 
A2517290 
A2517300 
A2517310 
A2517320 
A2517330 
A2517340 
A2517350 
A251736G 
A2517370 





XC 


LMZLCT(4),LWZLCT 


CLEAR FORKING AREA 




TH 


LWZFLG,X'Q8 f 


CONSTANT LENGTH=3 BYTES 




BC 


1,LDLST4 


YES - BRANCH 




TH 


LNZFLG>X f 04 f 


CONSTANT LENGTH = 2 BYTES 




BC 


1,LBLST5 


YES - BRANCH 




LA 


LWK6RG > 3 ( LWK4RG , 0 ) 


HOVE WILL START AT LWZLCT+3 




BC 


15,LDLST6 




LDL5T3 


01 


LDMVClU,X f 03 f 


INSERT LENGTH f 3 f IN HVC 




01 


LDMVCZ+l,X f Q3 f 






BC 


15,LBHVC1 


GO TO HOVE 


LBL5T4 


HVI 


LDHVCl+I,X f 02 f 
LDHVC2U,X'02 f 


INSERT LENGTH *2 f IN HVC 




HVI 


# 




LA 


LMC6RG , 1 ( LNK4RG , 0 ) 


HOVE WILL START AT LNZLCTU 




BC 


15,LDLST6 




LDLST5 


NVI 


LBMVCl+l,X f Gl f 


INSERT LENGTH 9 V IN HUC 




HVI 


LDMVC2+l,X*Ql r 






LA 


LWK6RG,2(LWK4RG,Q) 


MOVE WILL START AT LWZLCT+2 


LDLST6 


STH 


LNK6RG,LDMVCl+2 


INSERT LWZLCT+N IN HOVE 




STH 


LHK6RG,LDHVCZ+<i 


* INSTRUCTION 


LDHVCI 


HVC 


LWZLCT ( 1 ) > 0 ( LWK1RG ) 


CONST. INITIAL. TO LNZLCT+N 




L 


LWK5RG>LWZLCT 


* AND THEN TO WORK REGISTER 




TH 


LWZFLG>X f G2 f 


TEST COHPLEHENT FLAG 




BC 


1,LDLST7 


ADD OR SUBTRACT RELOCATION 




AR 


LHK5RG,LWK2RG 


* QUANTITY AND PLACE 




BC 


15,*+6 


* RESULT IN WORKING AREA 


LDLST7 


SR 


LNK5RG,LNK2RG 






ST 


LHK5RG>LWZLCT 




LBHVC2 


HVC 


0(1, LWK1RG ) , LMZLCT 
LWK4RG,LBMVC1*2 


PLACE CONST. AT CORRECT ADDR 




STH 


RESTORE WORKING AREA ADDR. 




STH 


LWK4RG,LDMVC2+4 


* TO HOVE INSTRUCTIONS 




BCR 


15,LEXIT1 


EXIT1=L0AD CONST PROCESSED 




EJECT 







* 



HEXADECIMAL TO BINARY CONVERSION SUBROUTINE 
NAME= LHEXB1 

CALLING SEQUENCE - L LEXIT1, START OF FIELD ADDRESS 
L LEXIT2, LENGTH OF FIELD (BYTES) 
BAL LEXIT3,LHEXB1 

THE CHARACTER VALIDITY CHECK ALSO DETERMINES WHETHER A VALID 
CHARACTER IS ALPHABETIC (A-F) OR NUMERIC (1-9) 

IN THE FIRST CASE, SUBTRACTING »B7 f AMOUNTS TO ADDING 9 TO THE 
NUMERIC AND SUBTRACTING 192 FROM THE ZONE, THUS LEAVING THE COR- 
RECT BINARY VALUE OF THE HEXADECIMAL CHARACTER IN THE SECOND 
HALF-BYTE. 

IN THE SECOND CASE, ONE NEED ONLY CLEAR THE ZONE. 



SPACE 

LHEXB1 SR LWK3RG,LWK3RG WORKING REGISTERS 



A25173B0 
A25 17390 
A251740G 
A25174I0 
A2517420 
A2517430 
A2517440 
A25 17450 
A251746Q 
A2517470 
A2517480 
A2517490 
A25175G0 
A25175I0 
A2517520 
A2517530 
A2517540 
A251755G 
A251756Q 
A2517570 
A251758G 
A2517590 
A2517600 
A251761G 
A2517620 
A2517630 
A2517640 
A25 17650 
A251766G 
A2517670 
A25I7680 
A251769Q 
A251770Q 
A2517710 
A2517720 
A2517730 
A2517740 
A2517750 
A2517760 
A2517770 
A2517780 
A2517790 
A2517800 
A2517810 
A2517820 
A2517830 
A25 17840 
A25 17850 
A25 17860 
A25 17870 
A2517880 
A2517890 
A2517900 
A2517910 
A2517920 





LR 


LWK1RG,LNK3RG 






A2517930 




LR 


LWK2RG>LWK3RG 






A2517940 




IC 


LNK1RG,LCSTB7 
0(LEXITl)>X f FO r 




INSERT 183 (DECIMAL) 


A2517950 


LHEXB2 


TM 




BYTE VALUE SMALLER THAN FO A2517960 




BC 


1,LHEXB3 




NO-BRANCH 


A2517970 




CLI 


0(LEXIT1),X'C0* 




BYTE VALUE GREATER THAN CO A2517980 




BC 


I2.LHEXB5 




NO-BRANCH 


A25 17990 




CLI 


0(LEXITl),X f C6 T 




BYTE VALUE GREATER THAN C6 A2518000 




BC 


2,LHEXB5 




YES-BRANCH 


A2518010 




IC 


LHK2RG,0(LEXIT1>0) 




BYTE TO WORKING REGISTER 


A2516020 




SR 


LWK2RG>LWK1RG 
LWK3RG»4 




CONVERT TO ALPHA 


A251803G 


LHEXB4 


SLL 




MULTIPLY PREVIOUS RESULT BY A2518040 




AR 


LWK3RG>LHK2RG 




* 16 AND ADD PRESENT RESULT A2518050 




LA 


LEXIT1,1CLEXIT1,Q) 
LEXIT2>LHEXB2 




ADDRESS OF NEXT BYTE 


A251SG6G 




BCT 




BRANCH IF ANY BYTES LEFT 


A2518070 




LR 


LEXIT2>LWK3RG 




TRANSFER FINAL RESULT 


A25 18030 




BCR 


15,LEXIT3 




RETURN TO CALLER 


A2518090 


LHEXB3 


CLI 


0(LEXITl),X f F9 f 




BYTE VALUE GREATER THAN F9 A2518100 




BC 


2,LHEXB5 




YES-BRANCH 


A2518110 




NX 


ftfl CVTT1 \ V ¥ ftC f 




CLEAR ZONE 


A2518120 




IC 


LWK2RG,0(LEXIT1,0) 




BYTE TO WORKING REGISTER 


A2518130 




BC 


15,LHEXB4 




* AND CONTINUE 


A2518140 


LHEXB5 


BAL 


LEXIT1,LM5DG1 




WRITE MESSAGE 'CHARACTER 


IN A2518150 




DC 


C f f 




* CARD NOT HEXADECIMAL' 


A2518160 




DC 


AL3CMSDG1H) 






A2518170 




BC 


15,LDCARD 




GET NEXT CARD 


A2518180 


m ^ ^ 


EJECT 








A2518190 
** A2518200 
* A2518210 












BINARY TO HEXADECIMAL CONVERSION SUBROUTINE 


* A25 18220 












* A2518230 






NAME= LBHEX1 






* A25 18240 


* 










* A2518250 


* CALLING SEQUENCE - LA LEXIT1> ADDRESS OF BINARY FIELD 


* A25 16260 






L LEXIT2, 


BITS 


0-23 ADDR. OF RESULT FIELD 


* A25 18270 








BITS 24-31 2 XCBYTE COUNT- 1) 


* A25 18280 






BAL LEXIT3>LBHEX1 




A2518290 












* A25183CQ 


* EACH BINARY CHARACTER > OCCUPYING ONE HALF-BYTE, IS TRANSLATED VIA 


* A2518310 


* A TABLE TO A FULL-BYTE HEXADECIMAL CHARACTER. 


* A2518320 












* A2518330 






SPACE 








A2518350 


LBHEX1 


SR 


LWK4RG>LWK4RG 




CLEAR WORKING REGISTER 


A2518360 




STC 


LEXIT2>LBHEX2+3 




HEXADECIMAL BYTE COUNT 


A2518370 




SRL 


LEXIT2,3 




CLEAR BYTE COUNT IN REGISTE A25I8380 




LR 


LNK1RG,LEXIT2 




ADDR OF DESTINATION FIELD 


A2518390 




LA 


LNK2RG,2 




L0AD f 2 f IN REGISTER (STEP) A2518400 


LBHEX2 


LA 


LNK3RG,0(LEXIT2>0) 




END ADDR. OF DESTIN. FIELD 


A2518410 


LBHEX3 


LA 


LWK5RG>15 

LHK4RG,0(LEXIT1,Q) 




LOAD MASK ? OF f 


A2518420 




IC 




LOAD ONE BYTE 


A2518430 




MR 


LHK5RG,LHK4RG 




2ND HALF BYTE IN REG. 5 


A251844G 




SRL 


LMK4RG,4 




CLEAR 2ND HALF BYTE IN REG, A2518450 




IC 


LNK4RG » BHXTAB ( LWK4RG ) 


CONVERT 1ST HALF-BYTE 


A25 18460 




STC 


LNK4RG > 0CLNK1RG , 0 ) 




* AND STORE 


A25 18470 





IC 


LUK5RG > BHXTAB ( LWK5RG ) 


CONCERT 2ND HALF-BYTE 


A2518480 




SIC 


LNK5RG » 1( LNK1RG » 0 ) 


* AND STORE 


A2518490 




LA 


LEXm,KLEXITl>G) 


UPDATE ADDR OF BINARY OPND 


A2518500 




BXLE 


LWK1RG > LWK2RG » LBHEX3 


RETURN IF ANY BYTES LEFT 


A251851G 




LR 


LEXIT2»LNK1RG 


1ST BYTE OF FOLLOWING FIELD 


A2518520 




BCR 


15>LEXIT3 


RETURN TO CALLER 


A2518530 


BHXTAB 


DC 


C f QI23456789ABCDEF f 


BIN-HEX CONVERSION TABLE 


A2518540 




EJECT 






A2518550 


v vt v vr v \; u v w w w w v w\» v w Vf V WW V VVf 




A25 18560 








* 


A251857G 


* 




CONSTANTS AREA 


* 


A2518580 










A2518590 






A25186G0 




SPACE 






A25 18610 




D5 


OD 


INITIAL PSH (AFTER LOADING) 


A2518620 


LBTPSH 


DC 


X f FF f 


* I/O, EXT. INTERRUPTS ENABLED 


A25 18630 




DC 


X*G5 f 


^PROBLEM STATE 


A25 18640 




DC 


X'GQOOGF* 


*PROGR. INTERRUPTS ENABLED 


A25 18650 


LBENTA 


DC 


XL3*0 f 


BRANCH ADDR. (AFTER LOADING) 


A2518660 










A251867G 


LTYPLD 


DC 


X f 02 f 


CARD TYPES AND SPECIFIC 


A2518680 




DC 


C f TXT f 


* ROUTINE ADDRESSES 


A25 18690 




DC 


A(LDTXTl) 




A2518700 




DC 


X f 02* 




A2518710 




DC 


C'ESD* 




A25 18720 




DC 


A(LDESDI) 




A2518730 




DC 


X*02 f 




A251S740 




DC 


C*RLD f 


* 


A25 18750 




DC 


A(LDRLDl) 




A25 18760 


LBENDO 


DC 


X T 02» 




A25 18770 




DC 


C'END* 




A25 18780 




DC 


A(LDENDl) 




A2518790 




DC 


X f 02' 




A2518800 




DC 


C v IC5 f 




A25138I0 




DC 


A(LDICSi) 




A2518820 




DC 


X T 02 f 




A2518S30 




DC 


C f 5LC f 




A2518840 




DC 


A(LDSLCl) 




A25 18850 




DC 


X ? 02 f 




A2518860 




DC 


C'REP* 




A25 18870 




DC 


A(LDREPl) 




A25 18880 




DC 


X*02' 




A2518890 




DC 


C f LDT f 




A2518900 




DC 


A(LDLDTl) 




A2518910 


LDCST1 


DC 


F'O' 


START OF TABLE LTYPLD 


A2516920 




DC 


F f 8 f 


LENGTH OF LTYPLD ELEMENT 


A2518930 




DC 


FW 


SIZE OF LTYPLD TABLE 


A2518940 


* 








A25 18950 


LDOPTA 


DC 


ACO) 


ADDR OF START OF OPTION TBL 


A2518960 




DC 


F f -8 f 


LNGTH OF OPTION TBL ELEMENT 


A25 18970 


LD0PT2 


DC 


ACQ) 


ADDR OF END OF OPTION TABLE 


A25 18980 


LDDICA 


DC 


F f 0 T 


ADDR OF START OF DICT. 


A25I8990 




DC 


F f -12 f 


LNGTH OF DICTIONARY ELEMENT 


A2519000 


LDDICZ 


DC 


F f 0 f 


ADDR. OF END OF DICTIONARY 


A2519010 


LDLSTA 


DC 


F f 0 f 


ADDR OF START OF LIST TABLE 


A2519020 





DC 


F*8 f 




LNGTH OF LIST TABLE ELEMENT 


A2519030 


LDLSTZ 


DC 


F'G f 




ADDR OF END OF LIST TABLE 


A2519040 


LDREFA 


DC 


F T 0* 




ADDR OF START OF REF. TABLE 


A25I9050 




DC 


F f 8 ? 




LNGTH OF REF. TABLE ELEMENT 


A2519G&9 


LDREF2 


DC 


F*0 f 




ADDR OF END OF REF. TABLE 


A2519070 


TB5IZE 


DC 


F f 104 f 




LOADER TABLE BLOCK SIZE 


A2519080 


LDELT1 


DC 


FW 




GAP BETWEEN REF AND LIST 


A2519090 


LDELT2 


DC 


F'20 ? 




GAP BETWEEN REF AND DICT 


A2519100 


LDSNS 


DC 


X'Q0» 




CONTROL FLAGS 


A2519110 


LOSTAT 


EQU 


ldsws 




BITS 6,7 LOADING STATUS 


A2519I20 


* 








* 00 LOADING STAGE A 


A2519130 










* 10 - B 


A2519I4G 










* 11 - - C 


A2519150 


LDINIT 


EQU 


LDSWS 




BIT 5 END CARD FOUND (IF 0) 


A2519160 


LDFLAG 


EQU 


LDSUS 




BIT 4 GENERAL PURPOSE FLAG 


A2519170 


LDENTR 


EQU 


LDSWS 




BIT 3 END CARD ADDR SAVED 


A2519180 


LDHXAD 


EQU 


LDSWS 




BIT 2 NO HEXADEC. ADDRESS 


A25I9190 










* IN SLC CARD 


A2519200 


LDFTTR 


EQU 


LDSMS 




BIT 1 1ST TIME TRANSFER 


A2519210 


LDABSL 


EQU 


LDSIIS 




BIT 0 ABSOLUTE LOADER FLAG 


A25 19220 


LC5TB7 


DC 


X f B7 f 




183 DECIMAL 


A2519230 












A25I9240 




DC 


XL6'0 f 




DICTIONARY WORKING AREA 


A2519250 


LUZTYF 


EQU 


LWZDIC*2 




TYPE 


A251926Q 


LNZORG 


EQU 


LWZDIC+3 




ORIGIN 


A25 19270 


U4ZCSI 


EQU 


LWZDIC 




CONTROL SECTION ID OR 


A2519280 


LMZCSL 


EQU 


U42DIC 




CONTROL SECTION LENGTH 


A2519290 












A25193G0 


LDAREA 


DC 


A(24) 




ADDRESS OF PROGRAM TO BE 


A2519310 




DC 


F'56 f 




* REGENERATED. 


A2519320 


LOCCTR 


DS 


F 




LOCATION COUNTER 


A251933G 


LDTOPP . 


DS 


F 




ADDR. OF LOADING TBLE BLOCK 


A2519340 


LW2REF 


D5 


2F 




REFERENCE WORKING AREA 


A2519350 


I U7TTP 


EQU 


LWZREF*4 




TYPE 


A251936G 


LWZADR 


EQU 


LS4ZREF+5 




ADDRESS (AS ASSEMBLED) 


A2519370 


LMZLST 


DS 


4F 




RELOCATION LIST WORK AREA 


A2519380 


LHZLDC 


EQU 


BIZLSTH 




ENTRY TO DICTIONARY 


A2519390 


LMZFLG 


EQU 


UI2LST+8 




RLD FLAGS (COMPL/CONTIN.) 


A2519400 


U42LAD 


EQU 


U4ZLST+9 




ADDRESS 


A2519410 


LMZLCT 


EQU 
SPACE 


LHZLST*12 




RELOCATED ADDRESS 


A2519420 
A2519439 








A25 19440 
A2519450 


















EQUIVALENTS 




A2519460 


* 










A2519470 




A25 19480 




SPACE 








A25 19490 


LTYPCD 


EQU 


LDXBUF 




LDXBUF DEFINED IN LDREAD 


A2519500 


LESTVP 


EQU 


LDXBUF+24 




ESD - ESD TYPE (0,1 OR 2) 


A2519510 


LE5NME 


EQU 


LDXBUFiiS 




ESD - NAME 


A2519520 


LESADR 


EQU 


LDXBUF+25 




ESD - ADDRESS 


A2519530 


LSECID 


EQU 


LDXBUF*30 




ESD - ES ID OF C.S. 


A2519540 


LSECLG 


EQU 


LDXBUF+33 




ESD - LENGTH OF C.S. 


A2519550 


LE5BCT 


EQU 


LDXBUFHO 




ESD - NBR OF BYTES IN CARD 


A2519560 


LESDID 


EQU 


LDXBUF+14 




ESD - E.S IDENTIFICATION 


A2519570 



LTXTAD 


EQU 


LDXBUF+5 


TXT 


- 


ASSEMBLY ADDRESS 


LTXTCT 


EQU 


LDXBUF+10 


TXT 


- 


K-BR OF BYTES IN TEXT 


LBYTXT 


EQU 


LDXBUF+16 


TXT 


- 


1ST TEXT BYTE IN CARD 


LRLDCT 


EQU 


LOXBUF+iO 


RLD 


- 


HBR OF BYTES IN CARD 


LRELHD 


EQU 


LDXBUFU6 


RLD 


- 


RELOCATION HEADER 


LPOSHD 


EQU 


LDXBUF+18 


RLD 


- 


POSITION HEADER 


LRLFLG 


EQU 


LDXBUF*20 


RLD 


- 


COHPL/CONTIN. FLAGS 


LRLADR 


EQU 


LDXBUF+21 


RLD 


- 


ASSEMBLY ADDR OF SYMB 


LENDAD 


EQU 


LDXBUF*5 


END 




TRANSFER ADDRESS 


LREPAD 


EQU 


LDXBUF+6 


REP 




HEXADEC. ADDRESS 


LREPID 


EQU 


LDXBUFU3 


REP 




ES ID OF C.S. 


LRPBYT 


EQU 


LDXBUF+16 


REP 




1ST REP BYTE IN CARD 


LICSNH 


EQU 


LBXBUFU6 


ICS 




NAME OF C.S. 


LIC5LG 


EQU 


LDXBUF+24 


ICS 




LENGTH 


L5LCAD 


EQU 


LBXBUF+6 


SLC 




HEXADEC ADDRESS 


LSLCNM 


EQU 


LDXBUF+16 


SLC 




SYMBOLIC ADDRESS 


SAVREG 


EQU 


TBSI2E 


SAVE ADDRESS REGISTER 




SPACE 











* 



REGISTER ASSIGftfENT 



******* 
* 
* 
* 





SPACE 






LBASRG 


EQU 


15 


BASE REGISTER 


LBA2RG 


EQU 


14 


BASE REGISTER 


CRDCNT 


EQU 


13 


CARD COUNTING REGISTER 


LDCONT 


EQU 


7 


MUST BE ODD 


LDSTEP 


EQU 


8 


LBCONTU 


LDFINL 


EQU 


9 


LDCONT+2 


LDBRRG 


EQU 


12 


LINK REGISTER 


LMIDRG 


EQU 


LDBRRG 


* 


LMKIRG 


EQU 


1 


WORKING REG* 1-ODD 


LHK2RG 


EQU 


2 


- 2-WK1RG+1 


LNK3RG 


EQU 


3 


- 3- - +2 


LWK4RG 


EQU 


4 


- 4- - *3 


LNK5RG 


EQU 


5 


- 5- - +4 


LNK6RG 


EQU 




- 6- - +5 


LEXIT1 


EQU 


10 


RETURN REGISTER 1 


LEXIT2 


EQU 


11 


2 


LEXIT3 


EQU 


LDBRRG 


3 


LEXIT4 


EQU 


LNK3RG 


4 


LINKR1 


EQU 


LEXIT1 


PARAMETER LIST REGISTER 1 


LINKR2 


EQU 
EJECT 

******** 


LEXIT2 

*************************** 


PARAMETER LIST REGISTER 2 



* 
* 
* 
* 
* 
* 
* 
* 



CONSOLE MESSAGE 

THIS MESSAGE IS PRINTED ON THE IBM 1052 PR INTER -KEYBOARD . IT IS 
ISSUED AT THE END OF THE LOADING PROCESS IF ANY WARNING OR ERROR 
CONDITION HAVE ARISEN AND IF THE LOADER HAS NOT PRINTED THE AC- 
CORDING MESSAGES. 



A2519580 
A2519590 
A2519600 
A2519610 
A2519620 
A2519630 
A2519640 
A2519650 
A2519660 
A2519670 
A2519689 
A2519690 
A251970D 
A251971Q 
A2519720 
A25 19730 
A25 19740 
A2519750 
A2519760 
A2519770 
A25 19780 
A2519790 
A2519800 
A2519810 
A2519820 
A2519830 
A2519340 
A25 19850 
A2519860 
A2519370 
A2519880 
A2519890 
A2519900 
A2519910 
A2519920 
A2519930 
A2519940 
A2519950 
A2519960 
A2519970 
A25I9980 
A2519990 
A2520000 
A2520010 
A2520020 
A2520030 
A2520040 
A2520050 
A2520060 
A2520070 
A2520OS0 
A2520090 
A2520100 
A2520110 
A2520120 



MSBG01 
M3DGCX 



SPACE 
DC 
DC 
DC 
DC 



MESSAGE LENGTH 
ADDRESS 
CODE 

SERIAL NUMBER 
TEXT 



FLl'36 f 
AL3C**3) 
CL3 f A2» 
CL3* 1114 ? 
DC CL16' LOADING ERROR >C f 
DC CL14'ANN0T CONTINUE* 
DC X'15» 
SPACE 2 

LOADING CONTROL MESSAGES 



* THESE MESSAGES ARE PRINTED ON AN IBH PRINTER OR WRITTEN ON A TAPE 

* UNIT ONLY IF THE USER WISHES FOR THEN. 
* 

SPACE 2 

MESHDR DC C r RL T C=RELOCATING LOADER) 

SPACE 2 

,\f ,y y \e y yvyy ,y y. 



1. INFORMATIVE MESSAGES 

THE FOLLOWING MESSAGES ARE USED TO FORM A STORAGE MAP OR INDEX OF 
THE CURRENT ADDRESSES OF ALL CONTROL SECTION NAMES AND TO MAKE 
THE INITIAL PSW KNOWN. 



MSDG1K SERIAL NUMBER 
LENGTH 
TEXT 





SPACE 




MSDG1K 


DC 


COOP 




DC 


FL1'2&* 




DC 


CL16 f CONTROL SECTION ' 




DC 


CLIO' LOADED AT * 


MSDGKK 


EQU 


MESTXT*26 




DS 


OF 


AMSDGK 


DC 


AL3CMSDGKK) 




DC 


XW 


MSDG12 


DC 


COIF 




DC 


FLl*14 f 




DC 


CL14'*INITIAL PSW f 


M5DGZZ 


EQU 


MESTXT+14 




DS 


OF 


AMSDGZ 


DC 


AL3CMSDGZZ) 




DC 


X'OE' 




SPACE 





HEXADEC PART OF MESSAGE IK 
MSDG1Z SERIAL NUMBER 



WARNING MESSAGES 



SPACE 

C f 02I» 
FLl f 28 v 

CL16* ILLEGAL CARD IN • 



MSDG11 



DC 
DC 
DC 



MSDG11 SERIAL NUMBER 



A2520I39 

A252Q1^0 
A2520150 
A2520160 
A2520179 
A252GI89 
A2520190 
A2520200 
A252021G 
A2520220 
A2520230 
A2520240 
A2520250 
A252026Q 
A2520270 
A252Q280 
A2520290 
A2520300 
A25203I0 
A2520320 
A2520330 
A2520340 
A252035Q 
A2520369 
A252037G 
A2520380 
A2520390 
A2520400 
A2520410 
A2520420 
A252043Q 
A2520440 
A2520450 
A2520^0 
A252Q470 
A2520480 
A252049Q 
A2520500 
A252051Q 
A252052Q 
A252D530 
A252G540 
A2520550 
A25205G0 
A2520570 
A2520580 
A2520590 
A2520600 
A2520610 
A2520620 
A2520630 
A252G64Q 
A2520&50 
A2520660 
A252G670 





DC 


CL 12 'LOADER INPUT" 




A2520&80 


HSDG12 


DC 


CG3I' 


HSDG12 SERIAL NlfrfBER 


A252G690 




DC 


FLl'27' 




A2520700 




DC 


CLIG'TXT FOLLOWS REP ' 




A252071G 




DC 


CLH'OR RLD CARD* 




A252D72D 


HSDGI3 


DC 




KSDG13 SERIAL NUMBER 


A2520730 




DC 


FLIPS' 




A252Q730 




DC 


CL16 'ADDRESS OUTSIDE ' 




A252075D 




DC 


CL16'C.S. OR C.S. ALR f 




A2520760 




DC 


CLH'EADY LOADED* 




A2520770 


MSDG14 


DC 


C05I' 


HSDG14 SERIAL NUMBER 


A2S20780 




DC 


FL1*36' 




A252D790 




DC 


CLl&'TXT CARD CONTAIN" 




A2520800 




DC 


CLI6'5 MORE THAN 56 B' 




A2520810 




DC 


CLVYTES' 




A2520320 


HSDG15 


DC 


CG6I' 


M5DG15 SERIAL NUMBER 


A252G83Q 




DC 


FL1'27' 




A2520840 




DC 


CL1CTEXT OVERLAYS LO* 




A2520850 




DC 


CLll'ADER TABLES' 




A25208b0 


MSDG16 


DC 


C07I' 


MSBG16 SERIAL NUMBER 


A2520870 




DC 


FLI'25' 




A2520880 




DC 


CL16'ESD CARD FOLLOI4S' 




A2520390 




DC 


CL9' TXT CARD' 




A252090Q 


MSDG17 


DC 


C08I' 


M5BG17 SERIAL NUMBER 


A252G910 




DC 


FL1'38' 




A2520920 




DC 


CLIS'USED AS ENTRY AN' 




A2520930 




DC 


CL16'D CONTROL SECTIO' 




A2520940 




DC 


CLG'N NAME' 




A2520950 


MSDG18 


DC 


C09I' 


M5DG18 SERIAL NUMBER 


A2520960 




DC 


FLl'38' 




A252G970 




DC 


CL16' CONTROL SECTION ' 




A252G980 




DC 


CL16 'DEFINED WITH 2 L' 




A2520990 




DC 


CLG'ENGTHS' 




A2521000 


H50G19 


DC 


C10I' 


MSDG19 SERIAL NUMBER 


A2521010 




DC 


FL1'33' 




A252102D 




DC 


CLl&'LDT CARD NOT PRE' 




A2521030 




DC 


CL16 'CEDED BY END CAR' 




A2521040 




DC 


CLl'D' 




A2521050 


MSDG1A 


DC 


CHI' 


MSDG1A SERIAL NUMBER 


A25210G0 




DC 


FL1'38' 




A252IG70 




DC 


CL16 'EXTERNAL 5YHB0L ' 




A2521080 




DC 


CLIG'KAS NO REAL DEFI' 




A2521090 




DC 


CLfc'NITION' 




A2521100 


H5BG1B 


DC 


C12I' 


HSDG1B SERIAL NUMBER 


A2521110 




DC 


FL1'34' 




A2521120 




DC 


CL16'BLANK OR COMMA M' 




A2521130 




DC 


CLIG'ISSING IN REP CA' 




A2521140 




DC 


CL2'RD' 




A2521150 


H5DG1E 


DC 


C'13I f 


MSDG1E SERIAL NUMBER 


A2521160 




DC 


FLl'^3" 




A2521170 




DC 


CL16 'ADDRESS OF SYMBO' 




A2521180 




DC 


CL16'L IN SLC CARD NO' 




A2521190 




DC 


CLH'T RELOCATED ' 




A2521200 


H5DG1D 


DC 


cm' 


MSDG1D SERIAL NUMBER 


A2521210 




DC 


FL1'36' 




A2521220 





DC 


CL16 'NEITHER NAME, NOR f 




A2521230 




DC 


CL16' ADDRESS IN SLC * 




A2521240 




DC 


CUf'CARD' 




A2521250 


MSBG1G 


DC 


C15I' 


MSDG1G SERIAL NUMBER 


A2521260 




DC 


FIVES' 




A2521270 




DC 


CLIS'SLC HAS SET LOC 




A2521280 




DC 


CL16'CNTR. TO VALUE A' 




A2521290 




DC 


CL13'LREADY LOADED' 




A252I300 


M5DG1H 


DC 


C16I' 


MSDG1H SERIAL NUMBER 


A252I310 




DC 


FL1'33' 




A2521320 




DC 


CLI6 'CHARACTER IN CAR' 




A2521330 




DC 


CL16'D NOT HEXADECIMA' 




A2521340 




DC 


CLl'L' 




A2521350 


HSDG1J 


DC 


CI7I' 


MSDG1J SERIAL NUMBER 


A2521360 




DC 


FL1'23' 




A2521370 




DC 


CL16 'ENTRY POINT IS R f 




A2521350 




DC 


CL7'EPEATED* 




A2521390 


HSDG1L 


DC 


C18I' 


MSDG1L SERIAL NUMBER 


A25214GG 




DC 


FL1'27' 




A2521410 




DC 


CL16 'ENTRY POINT NOT » 




A252W20 




DC 


CL11' RELOCATABLE' 




A2521430 


HSDG1H 


DC 




MSDG1M SERIAL NUMBER 


A2521440 




DC 


FL1'23' 




A2521450 




DC 


CL16 'ADDRESS NOT RELO' 




A2521460 




DC 


CL7'CA TABLE' 




A2521470 


MSDG1N 


DC 


C20I' 


MSDG1N SERIAL NUMBER 


A252148G 




Ut 


rLi 




A252I49Q 




DC 


CLl&'EOF BEFORE END 0' 




A2521500 




DC 


CL9'F LOADING' 




A2521510 




SPACE 






A2521520 
**** A2521530 










* 








* A2521540 


* 




3. ERROR MESSAGES 




* A252155Q 


* 


******** 






* A2521560 
**** A2521570 
A2521580 




SPACE 






K5DG21 


DC 


C'2114' 


MSDG21 SERIAL NUMBER 


A2521590 




DC 


FL1'36' 




A2521600 




DC 


CL16 * INSUFFICIENT SPA' 




A2521610 




DC 


CL16'CE FOR LOADER TA' 




A2521620 




DC 


CLVBLES' 




A2521630 


MSDG23 


DC 


C22H' 


MSDG23 SERIAL NUMBER 


A252164Q 




DC 


FL1'^2' 




A2521650 




DC 


CL1G ' INSUFFICIENT STO' 




A25216G0 




DC 


CLIG'RAGE AVAILABLE F' 




A2521670 




DC 


CLIO'OR PROGRAM' 




A2521680 


MSDGOA 


DC 


C23R' 


MSDGOA SERIAL NUMBER 


A2521690 




DC 


FL1'13' 




A25217DD 




DC 


CL13'PR0GRAM ERROR' 




A2521710 


* 






LOCATION LENTRY^ENTRY POINT A2521720 




END 


LENTRY 


* TO THE RELOCATING LOADER. A2521730 




AOEMJIROSSREF - - 






A2UB 


TITLE 


' UPDATE V-l,L-i * 




~~ A2700020 


UPDATE 


START 


0 




A2700030 


* * * * 


******************************** A27OOO40 



* UPDATE 

* FUNCTIONS 
* 
* 
* 

* OPTIONS 
* 

* 
* 

* COMMON SIMULATOR UTILITY PROGRAMS USED BY UPDATING 



MAKE THE CORRECTIONS DEFINED BY THE 'UPDTCORR' CARDS 
TO THE OLD 'UPDTOLD' TAPE > AND NRITE A NEW 'UPDTNB4 f 
TAPE 

LIST OF THE UPDATING OPERATIONS (/ DEVSUP PRINTER) 
PARTIAL DUPLICATION OF THE NEH TAPE (DUPLFILE) 



- ABSOLUTE LOADER 

- CONTROL PROGRAM 

- I/O PACKAGE 

- INITIALIZER 

- RELOCATABLE LOADER 

- 32K MAIN STORAGE (16K IF f UPDATE* IS INITIALIZED) 

- STANDARD INSTRUCTIONS SET 

- 9 -TRACK MAGNETIC TAPES 

- CARD PUNCHER (OPTION FOR UPDTNEW, DUPLFILE) 

- PRINTER (OPTION FOR UPDATING LIST) 

- PRINTER-KEYBOARD 



* 
* 
* 
* 
* 
* 

* SYSTEM 

* 

* 
* 
* 

*********************************** 

EJECT 

*********************************** 

* 

* EXAMPLE OF OLD TAPE TO BE UPDATED (UPDTOLD) 

* 



******** 


* 


* 


************ 


* * * * 


******* 


*COLl 




72 73 80 * 






* I 






II I * 






******** 


* 


* 


************ 


* * * * 


******* 








* 




* 


* ONE RECORD 






A73B0001 * 




* 


* N RECORDS 






A73B ETC * ONE BINARY 


MODULE 


* 


* ONE RECORD 






A73B0119 * ( B COL 


76 ) 


* 


******** 


* 


* 


************ 


* * * * 


* * 


* ONE RECORD 






A71BD001 * 




* ONE FILE 


* N RECORDS 






A71B ETC * ONE BINARY 


MODULE 


* 


* ONE RECORD 






A71B0097 * 




* 


******** 


* 


* 


************ 


* * * * 


* * 








* 




* 


* TAPE-MARK 






* 




* 








* 




* 


******** 


* 


* 


************ 


* * * * 


******* 


* 






* 




* 


* ONE RECORD 






A7300010 * 




* 



A73 ETC * ONE SYMBOLIC MODULE * 
A731859D * (NUMERIC COL 76) * 



* N RECORDS 

* ONE RECORD 
**************************** 



* 
* 



ONE RECORD 
N RECORDS 



A7100010 * 



* ONE FILE 



A71 ETC * ONE SYMBOLIC MODULE * 



A27GGQ5Q 
A2700060 
A2700070 
A270G08Q 
A2700090 
A27001Q0 
A2700110 
A2700120 
A270D130 
A270G140 
A2700150 
A27G0160 
A2700170 
A270DI80 
A2700190 
A270Q20Q 
A2700210 
A2700220 
A27G0230 
A2700240 
A27Q0250 
A2700260 
* A2700270 
A27G028Q 
A2700290 
A2700300 
A270D310 
A2700320 
A2700330 
A2700340 
A2700350 
A27Q036Q 
A270D370 
A270D38D 
A2700390 
A270G400 
A2700410 
A27Q0420 
A2700430 
A270Q44Q 
A27G0450 
A270G%0 
A270Q470 
A27Q04BO 
A2700490 
A27OO5D0 
A2700510 
A2700520 
A270053D 
A270054Q 
A270D550 
A2700560 
A27D057Q 
A270058Q 
A2700590 



* ONE RECORD A7158700 * * * A27G060G 
**************************** * A27GG&1G 

* * * * A2700620 

* TAPE-HARK * * * A270Q630 

* * * * A2700640 
************************************ A2700G59 

* * * * A27Q066D 

* * * * A270C670 

* ONE RECORD A7200000 * * * A2700680 

* N RECORDS A72 ETC * ONE SYMBOLIC MODULE * * A2700690 

* ONE RECORD A7201020 * * ONE FILE * A2700700 
**************************** * A2700710 

* * * * A2700720 

* ONE RECORD A7A99999 * ONE SYMBOLIC MODULE * * A27G0730 
**************************** * A2700740 

* *s * * A2700750 

* TAPE-MARK * * * A27GG760 

* * * * A2700770 
************************************ A2700780 

* * * * A2700790 

* TAPE-MARK * * DATA END * A270G800 

* * * * A2700S10 
************************************ A2700320 

EJECT A270G830 
************************************ A2700840 

* * A27GG85G 

* CORRECTION CARDS (UPDTCORR) USED TO UPDATE AN OLD TAPE (UPDTOLD) * A270G86G 

* * A27GC870 

* 1~AT FILE LEVEL * A2700030 

* / UPDATE CARD TO DESIGNATE AN OLD FILE * A270G890 

* OR - TO BE COPIED * A270G900 

* OR - BEFORE WHICH A NEW FILE MUST BE INSERTED * A270091G 

* OR - OF WHICH GIVEN MODULES MUST BE CORRECTED * A27G0920 

* (IF A / UPDATE CARD IS NOT PRESENT FOR AN OLD FILE, THIS * A27GG930 

* FILE WILL BE DELETED) * A270G9S0 

* * A270G950 

* 2-AT COMPLETE MODULE LEVEL, OR AT RECORDS IN A MODULE LEVEL * A27G0960 

* 12-2-9 RIS CARD FOR * A27GG970 

* - REPLACE * A27GG9S0 

* - INSERT * A27GG99G 

* - SUPPRESS * A27GI0G0 

* - NUMBERING * A2701010 

* * A2701G2G 

* 3-HODIFICATION CARDS, FOLLOWING AN RIS CARD USED FOR * A270103G 

* - AN INSERTION * A27GIG40 

* - OR AN REPLACEMENT * A2701050 

* THESE CARDS REPRESENT THE NEW RECORDS TO BE WRITTEN INTO * A2701G60 

* THE NEW TAPE (UPDTNEWK * A27G1070 

* * A27G1GSG 

* THEY MUST CONFORM TO THE FOLLOWING STANDARDS * A2701090 

* * A27G1IGG 

* A -MODULE IDENTIFICATION COL 73 THROUGH 75 OR 76* * A27G1110 

* -ALL MODIFICATION CARDS FOLLOWING AN RIS CARD MUST * A2701I20 

* HAVE THE SAME IDENTIFICATION, WHICH IS THAT OF THE * A2701130 

* NEW MODULE TO BE WRITTEN * A2701I4G 



* -A HODIF CARD FOLLOWING A RIS CARD INVOLVING RECORDS* A2701150 

* (AND NOT A WHOLE MODULE) MUST HAVE THE SANE IDENTI-* A2701160 

* FICATION AS IN COL 8 THROUGH 10 OR 11 OF THE RIS * A27Q1170 

* CARD * A2701180 

* * A270I190 

* B -NUMBERING COLUMNS 76 OR 77 THROUGH 60. * A2701200 

* -ALL MODIFICATION CARDS MUST BE NUMBERED . * A2701210 

* -NO CHARACTER OTHER THAN THOSE FROM 0 THROUGH 9 ARE * A2701220 

* ACCEPTED IN THIS FIELD. * A2701230 

* -THE NUMBERING OF A MODIFICATION CARD SET FOLLOWING * A27012A0 

* AN RIS CARD MUST BE IN ASCENDING ORDER * A2701250 

* -THE NUMBER IS A SERIAL NUMBER FOR USER. * A2701260 

* THE CORRECTION CARDS 14 ILL BE NUMBERED BY THE * A2701270 

* PROGRAM BEFORE WRITING ON THE NEW TAPE. * A2701280 

* * A2701290 

* C -NUMBER OF THE MODIFICATION CARDS. * A2701300 

* -THIS NUMBER CAN BE DIFFERENT FROM THE NUMBER OF THE* A2701310 

* OLD RECORDS WHICH HAVE BEEN REPLACED. * A27G1320 

* * A270133O 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A270134Q 

EJECT A27G1350 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2701360 

* EXAMPLE OF UPDATING AT FILE LEVEL * A2701370 

* UPDTOLD CONSISTING OF * ONE FILE , MODULES A73B,A71B>TM. * A270135D 

* * ONE FILE » MODULES A73 ,A71 ,TM. * A2701390 

* * ONE FILE , MODULES A72 >A7A >TM. * A2701400 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A27G1410 
xxx x A2701420 

* FUNCTIONS * / UPDATE CARDS * OTHER CARDS (RIS) * A2701430 

* * 1 8 13 15 18 24 * FOLLOWING * A2701440 

* * I IIII I * A / UPDATE CARD * A2701450 

* x x x A2701460 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2701470 
xxx x A27014S0 

* COPY AN OLD FILE * / UPDATE A73B * * A27Q1«90 

* (A73B,A71B,TM) * * * A2701500 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2701510 

* » * * A2701520 

* DELETE AN OLD FILE * * * A2701530 

* (A73,A71>TM) * * * A27G1540 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2701550 

* * * * A2701560 

* INSERT A NEW FILE * / UPDATE A72 I * RIS CARD( INSERT A MOD-* A2701570 

* (YYY,XXX,TM) * * ULE AT BEGINNING OF A * A2701580 

* BEFORE AN OLD FILE * * FILE) * A2701590 

* (A72>A7A,TH) * ^^MODIFICATION CARDS * A2701600 

* * * (1 SET f RIS + MODIFI- * A270I610 
x x x CATIONS* FOR EACH MOD- * A2701620 

* * * ULE TO BE INSERTED) * A270I630 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2701630 

* * * * A2701650 

* CORRECT SOME MODULES * * RIS CARD (THIS CARD * A2701660 

* (A7A FOR EXAMPLE) * * DEFINES THE MODULE TO * A2701G70 

* IN AN OLD FILE * * EE CORRECTED AND THE * A270168Q 

* (A72>A7A,TM) * * TYPE OF CORRECTION TO * A2701690 



*0R * * BE MADE) * A2701700 

* 1ST OPTION-LIST ALL * / UPDATE A A7Z * MODIFICATIONS CARDS * A2701710 

* MODULES OF THE FILE * * (IN CASE OF A INSERT * A2701720 

* * * OR REPLACE REQUEST) * A270173Q 
***************** OR ***** * A27G1740 
*OR * *(1 SET 'RIStMOBIFICA- * A27Q1750 

* 2ND OPTION-LIST COR- * / UPDATE A72 * TIONS'FOR EACH MODULE * A270I760 

* RECTED MODULES ONLY * * TO BE CORRECTED) * A2701770 
************************************ A2701760 

* INSERT A NEW FILE * / UPDATE * * A2701790 

* (VW>NNW,XXX,TM) * * SEE f INSERT A NEW FILE* A27D180D 

* AT END OF THE NEW * * BEFORE AN OLD FILE * A270I810 

* TAPE * * * A270I820 
************************************ A2701830 

* * A27Q1840 

* NOTE ANY IDENTIFICATION IN COL 15 THROUGH 17 OR 18 OF THE / UPDATE * A270185D 

* CARD IS THAT OF THE FIRST MODULE OF THE OLD FILE * A2701860 

* ***** * A2701870 
************************************ A2701880 

EJECT A2701890 
************************************ A2701900 

* * A2701910 

* EXAMPLE OF UPDATING AT MODULES LEVEL IN ANY GIVEN OLD FILE. * A270192Q 

* (MODULES ZZ2B>YYY >DDD >EEEB>GGG ,TM.) * A270193D 

* * A2701940 

* A / UPDATE CARD HAS ESTABLISHED THE LINK BETWEEN THE CORRECTION * A2701950 

* CARDS AND THE OLD FILE . * A2701960 
************************************ A2701970 

* * ONE RIS CARD (12 2 9 COL 1) * MODIFICATION * A2701980 

* * FOR EACH CORRECTED MODULE * CARDS * A2701990 

* FUNCTIONS * * FOLLOWING A * A270200Q 

* *1 4 8 41 44 52 59 G7 69* RIS CARD * A2702010 

* *I I I III I II* * A2702020 

* * * * A2702030 
************************************ A2702040 

* * * * A2702050 

* INSERT A NEW MODULE * RIS I C X XX* CARDS * A2702060 

* (AAA) * * IDENTIFIED * A2702070 

* AT BEGINNING OF A * (...X SEE NOTE) * BY AAA * A2702080 

* FILE * * COL 73... 75 * A2702090 
************************************ A2702100 

* * * * A2702110 
^REPLACE AN OLD MODULE* RIS Z2ZB R C X X X * CARDS * A2702120 

* (Z2ZB) * * IDENTIFIED * A27G2130 

* BY A HEN MODULE * * BY BBB * A27G2140 

* (BBB) * * COL 73.., 75 * A2702150 
************************************ A2702160 

* * * * A2702I70 

* DELETE AN OLD MODULE* RIS YYY S C * * A2702180 

* (YYY) * * * A2702190 
************************************ A2702200 

* * * * A2702210 

* INSERT A NEW MODULE * RIS YYY I C X XX* CARDS * A2702220 

* (CCCB) * * IDENTIFIED * A2702230 

* AFTER AN OLD MODULE * * BY CCCB * A27G2240 



* (YYY) * * COL 73... 76 * A2702250 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2702269 
x x * * A2702270 

* COPY AH OLD MODULE * * * A2702280 

* (DDD) * * * A2702290 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A27G2309 
x x xx A2702310 

* NUMBER AN OLD FILE * RIS EEEB N C X H* * A2702320 

* (EEEB) * * * A2702330 

* WITHOUT CHANGING * * * A2702340 

* ITS IDENTIFICATION * * * A2702350 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2702360 
xx * * A270237Q 

* NUMBER AN OLD FILE * RIS GGG N C FFFB X XX* * A2702330 

* (GGG) * * * A2702390 

* AND CHANGE ITS * x x A270240Q 

* IDENTIFICATION TO* * * A2702410 

* (FFFB) * * * A2702420 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2702430 

EJECT A27Q2440 

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A27G2450 

* * A27G2460 

* NOTE DUPLICATION OF A NEW MODULE ON'BUPLFILE* * A2702470 

* * A2702480 

* PUNCH D INTO COL 69 OF THE RIS CARD WHICH CAUSED THE NODULE TO * A2702490 

* BE CORRECTED. * A2702500 

* * A2702510 

* ONLY THE MODULES DESIGNATED BY RIS CARDS (OTHER RIS CARDS THAN * A270252Q 

* SUPPRESSION OF A COMPLETE MODULE REQUESTING) CAN BE DUPLICATED * A2702530 

* * A2702540 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2702550 

* NOTE NUMBERING OF COL 76 OR 77 THROUGH 80 OF THE NEH RECORDS OF A * A27G2560 

* CORRECTED MODULE. * A2702570 

* * A2702589 

* SPECIFICATIONS IN AN RIS CARD *BY MODULE* (C INTO COL 44) * A270259D 

* COL — 59 = INITIAL NUMBER REQUESTED FOR THE FIRST NEW * A27Q2600 

* RECORD OF THE CORRECTED MODULE * A27G2610 

* COL — 67 = NUMBERING STEP * A2702620 

* * A2702630 

* THE PROGRAM ASSIGNS THE VALUE 10 TO ONE OR THE OTHER OF THESE 2 * A27Q264G 

* FIELDS LEFT BLANK BY THE USER. A STEP OF ZERO IS ALSO REPLACED * A2702650 

* BY THE VALUE 10. ANY OTHER NUMERICAL VALUE WILL BE ACCEPTED. * A2702660 

* * A270267G 

* * EXAMPLES ( MODULE FFFB) * PUNCH IN RIS CARD * * A2702690 

* * TO OBTAIN * INITIAL NUMBER STEP * * A2702700 

* * * COL — 59 COL — 67 * * A2702710 
x xxxxxxxxxx^xxx*xx^^xxxxxxx^xx9fx»x*xxxx*«x^^^xx9fxxxxx>e*x9f^»xx x A2702720 

* * FFFB0010 , FFFB0020 , FFFB0030 ETC* (BLANKS) (BLANKS) * * A2702730 

* * *OR 10 10 * * A2702740 

* * FFFBOOOO,FFFB0010,FFFB0020 ETC* 0 (BLANKS) * * A2702750 

* * FFFB0001 >FFFB0002 >FFFB0003 ETC* 1 1 * * A2702760 

* * FFFB0002>FFFB0005>FFFB0ai0 ETC* 2 5 * * A2702770 

* * FFFB0100 >FFFB01G2 >FFFB0104 ETC* 100 2 * * A2702780 
x xxxxx*x*xxxxxxx^***x*xxxxxx*xx*x*xx*xxkxxxxx**xxxxxxxxxxxxxxx x A2702790 



* * A27Q280G 
************************************ A2702810 

EJECT A2702820 
************************************ A270283Q 

* EXAMPLE OF UPDATING AT THE RECORD LEVEL IN AN OLD MODULE * A27G2S40 

* (MODULE WJQQ01G>rttNQQ020 THROUGH NNN00070>NNN00080) * A2702850 

* * A2702860 

* A / UPDATE CARD HAS BEEN ESTABLISHED TO DESIGNATE THE OLD FILE OF * A27C2870 

* KHICH THE MODULE TO BE CORRECTED IS A PARK OTHER MODULES IN * A27028S0 

* THE SAME FILE MAY HAVE BEEN CORRECTED) * A2702890 

* * A2702900 
************************************ A27029I0 

* * * * A2702920 

* *ONE RIS CARD (12 2 9 COL DFOR EACH ^MODIFICATION^ A2702930 

* * CORRECTION REQUESTED * CARDS * A2702940 

* FUNCTIONS *1 4 6 24 41 59 67 69* FOLLOWING * A2702950 

* *I I I I III I*AN RIS CARD * A27G2960 

* * * * A2702970 
************************************ A27D2980 

* * * * A2702990 

* INSERT 2 RECORDS * * 2 CARDS * A2703000 
*(NNNG0001 THR. 2)* RIS NNN IX XX* IDENTIFIED * A2703010 

* AT BEGINNING OF * * BY K^J * A2703020 

* A MODULE (NNN) * (. .X SEE NOTE) * COL 73—75 * A2703030 
************************************ A2703040 

* * * * A2703050 

* COPY OLD RECORDS * * * A27Q3060 
*(?^N00010 THR. 30)* * * A2703070 
************************************ A2703030 

* * * * A27D3090 

* REPLACE THE * * 4 CARDS * A27031Q0 

* OLD RECORDS * RIS f£#J00Q4O TOJ00050 R 40 10 * IDENTIFIED * A2703I10 
*(KNK I G0Q40 THR. 50)* * BY NNN * A2703120 
*BY THE N34 RECORDS* *COL 73—75 * A2703130 
*(NNN00040 THR. 70)* * * A2703140 
************************************ A2703150 

* * * * A2703160 

* NUMBER THE * * * A2703170 

* OLD RECORDS * RIS NNN0G060 NNN00070 N 80 10 * * A2703180 
*<NNN0Q060 THR. 70)* * * A2703190 
*FROH 80 TO 90 * * * A2703200 
************************************ A2703210 

* * * * A2703220 

* DELETE THE OLD * * * A2703230 

* RECORD (NNN000S0)* RIS NNN00080 ^N00080 S * * A2703240 
************************************ A2703250 

* * * * A2703260 

* INSERT THE NEW * * 1 CARD * A2703270 

* RECORD (NNN00100)* RIS rTO00080 I 100 X * IDENTIFIED * A2703280 
*AFTER OLD RECORD* * BY tm * A2703290 

* (NNN00080) * *COL 73—75 * A2703300 
************************************ A2703310 

EJECT A2703320 
************************************ A2703330 

* * A2703340 



* NOTE DUPLICATION OF A NEW MODULE ON f DUPLFILE f * A2703350 

* * A27G3360 

* PUNCH D INTO COL 69 OF THE FIRST RIS CARD WHICH CONCERNS THE * A2703370 

* MODULE TO BE DUPLICATED. * A2703360 

* * A270339Q 
****x****x*x*x***x*xxx***kx%x******* A27034Q0 

* * A270341Q 

* NOTE NUMBERING COL 76 OR 77 THROUGH 80 OF THE NEW RECORDS WRITTEN * A2703420 

* DURING CORRECTION . THE OLD RECORDS COPIED .WHICH ARE NOT * A27Q3430 

* DESIGNED BY AN RIS CARD, ARE NOT AFFECTED BY THIS NOTE. * A2703440 

* * A2703450 

* SPECIFICATIONS IN AN RIS CARD f BY RECORD' (NOT C IN COL 44) * A2703460 

* COL 59 = INITIAL NUMBER REQUESTED FOR THE FIRST NEW * A2703470 

* RECORD WRITTEN DURING THE CORRECTION * A2703480 

* COL — 67 = NUMBERING STEP * A270349Q 

* * A2703500 

* THE PROGRAM ASSIGNS THE VALUE 1 TO ONE OR THE OTHER OF THESE 2 * A2703510 

* FIELDS LEFT BLANK BY THE USER. A STEP OF ZERO IS ALSO REPLACED * A2703520 

* BY THE VALUE 1 .ANY OTHER NUMERICAL VALUE WILL BE ACCEPTED, IF * A2703530 

* IT ALLOWS THE INCREASING NUMBERING OF THE NEW RECORDS OF THE * A2703540 

* SAME MODULE. * A270355G 

* * A2703560 

* * EXAMPLES (MODULE NNN) * PUNCH IN RIS CARD * * A2703580 

* * TO OBTAIN * INITIAL NUMBER STEP * * A2703590 

* * * COL — 59 COL — 67 * * A27D36GQ 

* * A2703610 

* * ^QGQ01>NNN0GG02>r&NGGQQ3 ETC* (BLANKS) (BLANKS) * * A270362G 

* * *OR 1 1 * * A2703630 

* * NNNOQIOO ,f^N00101 ,NNNG0102 ETC* 100 (BLANKS) * * A2703640 

* * NMN00001 ,f«l00010 >NNNG0020 ETC* (BLANKS) 10 * * A2703650 

* ******* x A2703660 

* * A2703670 

A2703680 

EJECT A2703690 
a*********************************** A2703700 

* * A2703710 

* LISTING SUPPLIED TO PRINTER * A2703720 

* * A2703730 

* 1-IT CONTAINS * A2703740 

* * A2703750 

* - THE LIST OF THE NEW RECORDS (WITH THEIR IDENTIFICATION ZONES,* A2703760 

* AND ON THE SAME LINE THE IDENTIFICATION ZONE OF THE CORRES- * A2703770 

* PONDING MODIF CARDS AND OLD RECORDS). * A2703780 

* * A2703790 

* - THE IMAGES OF / UPDATE AND RIS CARDS. * A27035G0 

* * A2703810 

* - ANY ERROR OR INFORMATIVE MESSAGES. * A27G3820 

* * A2703S30 

* 2-THE MODULES BELONGING TO COPIED OR DELETED FILES ARE NOT LISTED.* A2703840 

* * A27G3850 

* 3-WHEN A PART OF A FILE WILL BE CORRECTED, THE USER, * A27G3360 

* - CAN REQUEST THE LIST OF ALL THE MODULES OF THIS FILE, * A2703370 

* - OR ONLY THE LIST OF THE CORRECTED OR INSERTED MODULES. * A2703880 

* * A2703890 



* 4-THE LIST CAM BE DELETED IF THE 'DEVSUP PRINTER 'CARD IS NOT * 

* PRESENT * 

* * 
************************************ 

EJECT 

************************************ 



* 
* 

* 
* 
* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



CALLING PROCEDURE OF UPDATING PROGRAM 
PHASE-1-PREPARATION OF PARAMETER CARDS 



/ DEV360 ADDR=X* 009 f 1052* 

/ DEV360 ADDR=X'00C f 2540 f ,COLBIN 

/ DEV360 ADDR=X f QGD f 2540 f 

/ DEV360 ADDR=X r 00E'1403M32BAR 

/ DEV360 ADDR=X f ADD'24Q0* ,9TRACK 

/ DEVSUP SIMXSYS=X f ADD f ,TYPE,I 
/ DEVSUP SIHXOUT=X ' ADD f , TYPE, 0 

/ DEVSUP UPDTOLD=X f ADD f ,2400,I 
/ DEVSUP UPDTCORR=X 1 ADD 1 , TYPE , I 
/ DEVSUP UPDTNEW^X 'ADD *, TYPE, 0 
/ DEVSUP PRINTERS 'ADD', TYPE, 0 
/ DEVSUP DUPLFILE=X' ADD', TYPE, 0 

/ CALL UPDATE, LIST, PUNCH 



PH A 5E ~2 -READY ING OF I/O UNITES 



PRINTER-KEYBOARD 
CARD READER 
CARD PUNCHER 
PRINTER 

FOR EACH TAPE UNIT USED 

UPDATE PROGRAM 
LOADER MESSAGES 

OLD TAPE TO BE UPDATED 

CORRECTIONS 

HB4 TAPE AFTER UPDATING 
LIST OF UPDATED RESULTS 
PARTIAL DUPLICATION OF UPDTNEW 

CALLING OF UPDATE PROGRAM 



UTILITY PROGRAMS 
UPDATE PROGRAM 
UPDTOLD 

UPDTNEM 

DUPLFILE 

PRINTER 



** ONE TAPE CAN * 



TAPE (FILE PROTECT )OR CARD READER * 
TAPE (FILE PROTECT )OR CARD READER * 
TAPE(FILE PROTECT) * 

** 

TAPE UNIT OR CARD PUNCH 

TAPE UNIT OR CARD PUNCH OR NOT USED 

TAPE UNIT OR PRINTER OR NOT USED 



CONTAIN ALL 
OR PART OF 
THESE 3 



PARAMETER CARDS TAPE UNIT OR CARD READER 



* 
* 

ITEMS* 
* 
* 
* 
* 
* 
* 



NOTE DEPENDING ON THE OPTION ,THE CARD READER CAN CONTAIN ALL 
OR PART OF THE FOLLOWING DECKS 

- UTILITY PROGRAMS (FROM IPL THROUGH LDT) 

- PARAMETER CARDS CDEV36G THROUGH CALL) 

- UPDATE PROGRAM ,I.E. 

. / PROGNAME UPDATE, TB5IZ=F '500' 
• UPDATE PROGRAM PROPER 
. LDT CARD 

- UPDTCORR (/ UPDATE CARD- ..ETC) 

IN THAT ORDER 



A2703900 
A2703910 
A2703920 
A2703930 
A2703940 
A2703950 
A2703960 
A2703970 
A2703980 
A2703990 
A2704000 
A27GS010 
A2704020 
A270^030 
A2704040 
A2703050 
A2703G60 
A27GW0 
A2704080 
A2703090 
A2704100 
A27041I0 
A2704120 
A2704130 
A2704140 
A2703150 
A2704160 
A27Q4170 
A2704180 
A2704190 
A270420G 
A2704210 
A2704220 
A2704230 
A27G4240 
A2704250 
A27Q3260 
A2704270 
A2704280 
A27G4290 
A2704300 
A2704310 
A2704320 
A2704330 
A2704340 
A2704350 
A27G436G 
A2704370 
A2704380 
A2704390 
A27G4400 
A270¥*10 
A270«420 
A2703430 
A2704440 



A270445Q 

EJECT A27Q446G 
x*********************************** AZ70447D 

* * A270448G 

* PHA5E-3-L0ABING OF UTILITY PROGRAMS * A270449Q 

* * A27G45GG 

* - SET THE LOAD-UNIT SWITCHES TO THE ADDRESS OF THE UNIT USED FOR * A27Q4510 

* THE UTILITY PROGRAMS * A27G4520 

* * A27G453G 

* - PRESS THE LOAD KEY * A27G454G 

* * A27G4550 

* - THE WAIT STATE WILL BE ENTERED * A27G456G 

* * A27G4570 

* * A27045SQ 

* PBASE-4-CALLING OF UPDATE PROGRAM * A2704590 

* * A27G46G0 

* - DEPRESS THE REQUEST KEY ON THE PRINTER-KEYBOARD * A27G461Q 

* * A2704620 

* - THE FOLLOWING MESSAGE WILL BE PRINTED * A27G463G 

* AXQOA ASSIGN CONTROL CARD INPUT DEVICE * A27G4&4D 

* * A27G4650 

* - DEPRESS THE REQUEST KEY ON THE PR INTER -KEYBOARD * A27G466Q 

* * A27G467Q 

* - ENTER THE FOLLOWING COMMAND TYPE, X" ADD ' (EXAMPLE 254Q,X'QGC) * A27G466G 

* GIVING THE ADDRESS OF THE DEVICE FROM WHICH PARAMETER CARDS * A27Q469Q 

* WILL BE READ * A270470G 

* * A27G4710 

* - DEPRESS SIMULTANEOUSLY THE 'ALTERNATE CODING' AND NUMERIC'S 'KEYS* A27Q472Q 

* ON THE PRINTER-KEYBOARD * A27Q4730 

* * A270474G 
**x***#*x*****x********************* A270475Q 

EJECT A27G476G 

A27G4770 

* * A27Q4780 

* PROGRAM INITIALIZATION ROUTINE * A27G479G 

* * A27G49GG 

* ENTRY AT 'INIT'( START OF JOB). * A27G481Q 

* * A27G482G 

* FUNCTIONS - PROGRAM CHECK ROUTINE INITIALIZATION (PCHECK) . * A2704830 

* - CANCEL THE SVC 18 IN ROUTINE 'OPRINT' * A270484G 

* IF THE DEVSUP-PRINTER CARD IS ABSENT. * A2704550 

* - CANCEL THE SVC 18 IN ROUTINE 'ODUPL' * A27G486G 

* IF THE DEVSUP-DUPLFILE CARD IS ABSENT. * A270487G 

* - INITIALIZE THE SWITCHES RELATIVE TO ANY GENER.FUNCT. * A27G468G 

* - READ 1ST CARD FROM UPDTCORR. * A270489G 

* - READ 1ST OLD RECORD FROM UPDTOLD. * A270490G 

* * A27G4910 

* BRANCH TO -ERSTPD (ERROR-STOP )IF THE FIRST CARD IS NOT A / UPDATE * A2704920 

* CARD, OR IF THE FIRST OLD RECORD IS A TAPE MARK. * A27G493G 

* -FLTGA (FILE TREATMENT) IN ALL OTHER CASES . * A270494G 

* * A27G4950 
*xx*******x#**xxx*xx****x***x**x*x** A27G496Q 



INIT BALR BASERG,G BASES LOADING A27G497G 

USING *,BASERG * A2704980 

USING **40GQ>BASER2 * A2704990 



INIT1 


LA 


BASER2,4000(0,BASERG) 




A2705000 




SVC 


9 




ENABLE 


A2705Q10 




CHOP 


2,8 






A27G5G20 




SVC 






PROGRAM-CHECK ROUTINE 


A27G5039 




DC 


A(PCHECK) 




* INITIALIZATION 


A2705G40 


PRPSW 


D5 


D 




* 


A2705D50 




HVC 


BVNAHE(8),0PRIN2+2 


PRINTER DEVICE IS DEFINED 


A2705G6G 




BAL 


LIKKF»BEVTST 




*BY A DEVSUP CARD 


A270507D 




BC 


15, INITD 




NO 


A2705080 




HVC 


OFRIN2(2),INITJ 




YES-RESTORE SVC 13 INSTRUCT 


A2705090 




BC 


15, INITE 






A27051Q0 


INITD 


HVC 


OPRIN2(2),INITH 




REPL.SVC18 BY BCR 15,LINKF 


A2705110 


INITE 


KVC 


DVNAME(8),0DUPL2+2 


DUPLFILE IS DEFINED BY 


A2705120 




BAL 


LINKF,DEVTST 




*A DEVSUP CARD 


A270513G 




BC 


15,INITG 




NO 


A27G514G 




KVC 


0BUPL2C2), INITJ 




YES-RESTORE SVC18 INSTRUCT • 


A2705150 




BC 


15,INITF 






A2705160 


3KITG 


HVC 


OBUPL2(2),INITH 




REPL»5VC18 BY BCR 15,LINKF 


A2705170 


METF 


NI 






NOT ANY DATA END 


A27G518D 




BAL 


LINKCRDCRD 




READ 1ST CARD 


A27G5190 




BC 


15, INITA 




DATA END ERROR 


A270520D 




BC 


15, INITB 




FILE END (/ UPDATE) 


A2705210 




BC 


15, INITA 




CS END (RIS) ERROR 


A2705220 




BC 


15, INITA 




NOT CS END (RIS) ERROR 


A2705230 


INITA 


LA 


NORK,ERHEQ2 




(HODIF CARD) ERROR 


A270524G 




BAL 


LINKD,PRHE1 




PRINT ERROR HESSAGE 


A2705250 




BC 


15,ERSTPD 




* AND STOP 


A2705260 


INITB 


NI 


GPLS^'GO' 




PITCHES INITIALIZATION 


A27G527D 




NI 


SWDUHP,X>OG f 
SMFRER,XW 






A27G5280 




NI 






A2705290 




NI 


SMERR,X ¥ 0G f 




* 


A27G530D 


* ITB1 


BAL 


LINKCRDOLD 




READ 1ST OLD REC (DELETED) V1L1 


A27D531D 


INITB1 


BAL 


LINKCRDOLD 




READ 1ST OLD RECORD V1L1 


A2705311 




BC 


15, INITC 




DATA END(7F)2 ERROR 


A2705320 




BC 


15, INITC 




FILE END (7F) 1- (DELETED) V1L1 


A2705330 




BC 


15,INITB1 




FILE END (7F) 1-READ AGAIN V1L1 


A27G5331 




BC 


15,FLTGA 




CS END- 


A2705340 




BC 


15,FLTGA 




NOT CS END 


A2705350 


INITC 


LA 


l^QRK,ERHE05 




ERROR 


A2705360 




BAL 


LINKD,PRME1 




PRINT ERROR HESSAGE 


A2705370 




BC 


15,ERSTPD 




* AND STOP 


A27G538G 


INITH 


BCR 


15,LINKF 






A2705390 


INITJ 


SVC 


18 






A27G54GG 




EJECT 






A27G5410 


* * * * 


* * * 






A27G542D 










* 


AZ705430 


* FILE TREATMENT ROUTINE 






A27Q544Q 












A270545Q 


* ENTRY AT f FLTGA f 






A270546G 


* 




THE FIRST TIHE,FROH ROUTINE f INIT f * 


A2705370 


* 




THEN FROM ROUTINE 


'CSTGC* 


(END OF FILE TREATMENT) . * 


A270548G 


* 










A2705S9G 


* DATA 




-A / UPDATE CARD 


HAS BEEN READ (OR CARDS EXHAUSTED) • * 


A270550G 






-THE 1ST RECORD OF ANY OLD FILE HAS BEEN READ (OR THE * 


A2705510 






LAST TAPE HARK OF UFDTOLD). * 


A27G552G 



* * A270553Q 

* FUNCTIONS -INITIALIZE THE SWITCHES RELATIVE TO A FILE. * A2705540 

* -SELECT THE ROUTINE TO BE USED (AND CALL IT BY BAL LINK)* A27G5550 

* 1-NLSTOP (NORMAL END OF JOB) IF THE INPUT DATA * A2705560 

* ARE COHPLETLY PROCESSED (UPDTOLD AND UPDTCORR) . * A27G5570 

* Z-SKLBM (DELETE I OLD FILE) IF THE PRESENT OLD FILE IS * A2705530 

* NOT MENTIONED IN THE READ / UPDATE CARD • * A2705590 

* 3-SKLBN (COPY 1 OLD FILE) IF THIS FILE IS MENTIONED IN * A2705600 

* THE READ / UPDATE CARD > AND IF THIS CARD IS NOT FOLLOWED A2705610 

* BY ANY RIS CARD. * A27G5&2D 

* 4-SKCRBM(SKIP UPDTCORR UP TO THE NEXT / UPDATE CARD) IF * A2705630 

* THE 1ST CARD AFTER / UPDATE CARD IS BY ERROR * A270564Q 

* A MODIFICATION CARD . * A2705650 

* 5-CSTGB (CS. TREATMENT) IF THE OLD FILE IS MENTIONED IN * A2705G60 

* THE / UPDATE CARD, AND THIS CARD IS FOLLOWED BY * A27G5670 

* A RIS CARD . * A2705680 

* * A2705G90 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2705700 

FLTGA XC NBRLIN(4),N8RLIN CLEAR PRINTED LINES COUNT A2705710 

XC LIN1ST(1),LIN1ST 1ST LINE OF CS NOT PRINTED A2705720 

MVI ^ZONE,X^O f CLEAR NNZONE A270573Q 

MVC NWZ0NEU(79),NWZ0NE * A2705740 

MVI PRZONE,X f 4G T CLEAR PRZONE A2705750 

MVC PRZONE + 1(119), PRZONE * A27G576Q 

MVI ERTBG,X*40 T CLEAR ERTBG A2705770 

Wt ERTBG+K 17), ERTBG * A2705760 

NI SWERR,X f FE f NO ERROR DETECTED IN FILE A2705790 

MVC SJ4F(1),SND IS ALSO FILE END IF IT IS A270580D 

NI SWF,X f FB f *BATA END A27G5810 

TM SUD,X f 03 f ARE BOTH INPUT DATA END A2705820 

EC l,NLSTOP YES-BRANCH A2705830 

TM SWDCE,X f 02 f CARDS DATA END A2705840 

BC 1,FLTGB YES-BRANCH A2705850 

TM SK J DOE,X f 01 T OLD DATA END A2705860 

BC 1,FLTGD YES-BRANCH A2705O70 

CLC GLCSD(CS),OLC5D SAME CS IN READ / UPDATE AS A2705880 

BC 8>FLTGE *IN 1ST OLD RECORD OF FILE A2705890 

FLTGB MVC MESS3G*51(CS),OLCSD CS OF READ OLD RECORD A2705900 

LA NORK,MESS3Q *STORED TO MESSAGE A270591Q 

BAL LINKD,PRHE3 PRINT MESSAGE A270592Q 

BAL LINKB,SKLDM DELETE AN OLD FILE A2705930 

BC 15, FLTGA TO NEXT FILE A27059^0 

FLTGD LA NORK,MESS32 PRINT MESSAGE A2705950 

BAL LINKD,PRME3 * A2705960 

FLTGE BAL LINKCRDCRD READ 1 CARD A2705970 

BC 15,FLTGH DATA END A2705980 

BC 15, FLTGB FILE END(/ UPDATE) A2705990 

BC 15,FLTGF CS END (RIS) A27G6Q0G 

BC 15,FLTGF NOT CS END (RIS) A2706010 

MVC PRZONE*8(40),GPZONE MODIF CARD - PRINT THE A2706020 

BAL LINKE,PRLINA ^PRECEDING / UPDATE CARD A27G6G30 

LA WORK,ERME04 PRINT ERROR MESSAGE A27G6Q4G 

BAL LINKDjPRMEl * A270G05G 

BAL LINKE,PRLINA SKIP 1 LINE A27G6060 

BAL LINKB,SKCRDM SKIP MODIFS UP TO / UPDATE A27G6070 



FLTGG 


TH 


SWB0E,X f 81 T 


OLD DATA END 




BC 


1,FLTGA 


YES-TO NEXT FILE 




LA 


NORK,MESS33 


PRINT MESSAGE 




BAL 


LINKD,PRHE3 


* 




BAL 


LINKB,SKLDN 


COPY AN OLD FILE ON UPDTNEW 




BC 


15,FLTGA 


TO NEXT FILE 


FLTGH 


HVC 


PRZONE*8(40),GFZONE 


PRINT THE PRECEDING /UPDATE 




BAL 


LENKE>PRLINA 


*CARD 




BC 


15,FLTGG 




FLTGF 


BAL 


LINKE,FREDF 


PRECEDING /UPDATE TO MESS29 






PRZ0NE+8(4Q),GPZ0NE 


PRINT THE PRECEDING /UPDATE 




BAL 


LIME,FRLINA 


* 




LA 


N0RK>HESS29 


PRINT MESSAGE 




BAL 


LINKD,PRME3 


* 




CLI 


GFFCT,X'C9* 


IS FILE INSERT REQUEST 




BC 


7,FLTGI 


NO 




LA 


N0RK,MESS22 


PRINT MESSAGE 




BAL 


LINKD>PRME3 


* 


FLTGI 


BAL 


LINKE,PRLINA 


SKIP 1 LINE 




BC 


15,CSTG3 


TO CS TREATMENT 




EJECT 






* * * * 


**************** 


**************** 


* 






* 



CS TREATMENT ROUTINE (CS=CONTROL SECTION = MODULE ) 



* 
* 

* ENTRY AT CSTGB 

* -FROM ROUTINE 

* 
* 
* 
* 

* ENTRY AT CSTGA 
* 
* 
* 
* 
* 
* 
* 
* 

* FUNCTIONS 



*FLTGA T (FILE TREATMENT) * 
-THE FOLLOWING CARDS AND RECORDS HAVE BEEN READS* 
-1ST RIS CARD AFTER / UPDATE CARD * 
-1ST OLD RECORD OF 1ST CS OF FILE >OR THE LAST * 
TAPE HARK OF UPDTOLD (OLD DATA END) . * 

* 

-FROM THIS ROUTINE, AFTER TREATMENT OF ANY CS IN THE SAME FILE * 
-THE FOLLOWING CARDS AND RECORDS HAVE BEEN READS* 
-ANY RIS CARD, OR / UPDATE CARD (CARDS FILE END) * 

UNLESS THERE ARE NO MORE CARD (DATA END) 
-1ST OLD RECORD OF ANY CS IN FILE, OR THE TAPE 
MARK FOLLOWING THE LAST CS OF A FILE 
(OLD FILE END). 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* EXIT 



-INITIALIZE THE SNITCHES RELATIVE TO A CS . 

-SET SNITCH 'OLD FILE END f ON, IF THE PRECEDING / UPDATE CARD 

HAS REQUESTED THE TILE INSERT FUNCTION 1 . 
-SELECT THE ROUTINE TO BE USED (AND CALL IT BY* BAL LINK T ) 

1- SKCRDA(SKIP UPDTCORR UP TO NEXT RIS CARD (NEXT CS)) 

IF THE REQUESTED FUNCTION CANNOT BE PERFORMED . 

2- SKLDA (COPY 1 OLD CS),IF THE READ OLD RECORD IS NOT 

CONCERNED BY THE READ RIS CARD. 

3- REPLA( REPLACE 1 OLD CS) * DEPENDING ON THE FUNCTION 
1 OLD CS) * REQUESTED BY THE READ RIS 
1 OLD CS) * CARD, FOR THE PRESENT CS. 
1 NEW CS) * (RIS MODE PER CS ) . 



4- SUPPR( DELETE 

5 - COUNT (NUMBER 
£>-INSEA( INSERT 



TO 



A270S060 
A2706090 
A27Q6IGQ 
A27D6110 
A27Q6120 
A2706130 
A2706140 
A270615G 
A2706160 
A270617Q 
A2706180 
A2708190 
A2706200 
A2706210 
A270622D 
A2706230 
A270624G 
A2706250 
A2706260 
A2706270 
A2706280 
A27G6290 
A27063G0 
A2706310 
A2706320 
A27Gb330 
A27G63^Q 
A27G635G 
A27G6360 
A270&37G 
A27G638Q 
A270639G 
A27G6^0G 
A270641Q 
A27G642G 
A270G43G 

AZ706450 
A27G6^60 
A27G6470 
A27GG^80 
A27G649G 
A270G50G 
A27G6510 
A27GG520 
A27G653G 
A27G6530 
A27G655G 
A2706560 
A27Q657G 
A27G6580 
A2706590 
A27G66G0 
A27G661G 
A27G662G 





-CSTGA 


(NEXT CS TREATMENT) IN ALL 


ABOVE CASES . * A2706630 




-RCTGB (RECORDS TREATMENT) IF THE READ RIS CARD REQUESTS A * A2706MG 






FUNCTION PER RECORD IN 


THE CS UHOSE THE 1ST RECORD * 


A2706650 


* 




HAS BEEN READ . 




* A27C666D 


* 


-CSTGC 


(END OF FILE TREATMENT) IF ALL CS HAVE BEEN TREATED IN * 


A2706670 






THE CURRENT FILE- 




* 


A2706680 


* 








* 


A27G669G 


* * * * 


*************** 


* * 


*************** A27G670G 


CSTGA 


HI 


LINlST,X f QD f 




1ST LINE OF CS NOT PRINTED 


A270G710 


CSTGB 


MI 


SNC5,X f GG T 




INITIALIZE 5SC5 


A27C6720 




XC 


NMBIN(4),NMBIN 




ZERO TO NHBIN 


A270673G 




CLI 


GPFCT,X f C9 f 




IS FILE INSERT REQUEST 


A2706740 




BC 


7>C5TGS 




NO 


A2706750 




01 


SHF0E,X*G1* 




YES-OLD FILE END 


A270S760 


CSTG5 


TH 


SMF,X'Q3 f 




INPUT FILES END 


A270&77G 




BC 


1, CSTGC 




YES- 


A2706780 




TH 


Sk r FCE,X T 02* 

writ V* U» J * % X> fc— 




CARD FILE END 


A27G6790 




BC 


1>C5TGQ 




YES-BRANCH 


A2706S00 




TH 


RLVALD,X'Gl f 




IS INVALID READ RIS 


A2706810 




BC 


1>CSTGD 




YES-BRANCH (ERROR) 


A2706820 




CLI 


RLM0D,X*C3 f 




CORRECTION MODE *PER CS T 


A2706830 




BC 


7,CSTGE 




NO -BRANCH 


A2706840 




CLI 


RLCNT,X r C9 f 




READ RIS-INSERT REQUEST 


A2706850 




BC 


7>CSTGR 






A2706S6G 




CLC 


RLIDTH8), BLANK 




INSERT AT FILE BEGINNING 


A27G6870 




BC 


8>CSTGG 




YES 


AZ7G6880 




BC 


15,CSTGI 




INSERT IN FILE 


A2706890 


CSTGR 


CLC 


RLCSD1(CS),0LCSD 




SAME CS IN READ RIS AS IN 


A27O690O 




BC 


7, CSTGH 




*READ OLD RECORD-NO BRANCH 


A27Q6910 




CLI 


RLCNT,X f D9 f 




READ RIS-REPLACE REQUEST 


A2706920 




BC 


8,CSTG0 




YES 


A2706930 




CLI 


RLCNT,X T D5 f 




READ RIS-NUMBERING REQUEST 


A27G694G 




BC 


8,CSTG01 




YES 


A270695G 




BAL 


LINKA, SUPPR 




SUPPRESS 1 OLD CS 


A27O6960 




BC 


15>CSTGA 




TO NEXT CS 


A2706970 


C5TG0 


BAL 


LINKA, REPLA 




REPLACE 1 OLD CS 


A270698G 




BC 


15, CSTGA 




TO NEXT CS 


A27G6990 


C5TG01 


BAL 


LINKA, COUNT 




NUMBER 1 OLD CS 


A2707000 




BC 


15, CSTGA 




TO NEXT CS 


A2707010 


CSTGD 


LA 


NORK,ERME06 




PRINT ERROR MESSAGE 


A27D7020 


CSTGD1 


BAL 


LINKD,PRME1 




*AND 


A2707030 




BC 


15,CSTGP 




^CONTINUE 


A270704G 


C5TGE 


TH 


SHFOE,X f Ql T 




IS OLD FILE END 


A2707050 




BC 


1,CSTGF 




YES-BRANCH 


A2707G6G 




CLC 


RLCSD1(CS),0LCSD 




EXPECTED OLD RECORD FOUND 


A27G7G7G 




BC 


7,CSTGQ 




NO 


A2707C80 




BC 


15,RCTGB 




CORRECTION T PER RECORD f 


A27G7G90 


C5TGF 


LA 


N0RK,ERHEG7 




PRINT ERROR MESSAGE 


A270710D 




BC 


15,CSTGD1 




*AND CONTINUE 


A27G7110 


CSTGG 


TH 


S4F01»XW 




1ST RECORD OF A FILE 


A27G712G 




BC 


1, CSTGH 




NO-BRANCH (ERROR) 


A27G7130 


CSIGG1 


BAL 


LINKA, INSEA 




INSERT 1ST CS OF UPDTNEM 


A270714G 




BC 


15, CSTGA 




TO NEXT CS 


A27G7150 


CSTGH 


LA 


N0RK,ERHEG8 




PRINT ERROR MESSAGE 


A2707160 




BC 


15,CSTGD1 




*AND CONTINUE 


A2707170 



CSTGI 


CLC 


RLCSD1(CS),0PCSB 




BC 


7>CSTGJ 




BC 


15>C5TGG1 


C5TGJ 


TH 


SKFOE»X f Ql f 




BC 


1>CSTGK 




BC 


15, CSTGQ 


CSTGK 


LA 


W0RK>ERMEG7 




BC 


15,CSTGD1 


CSTGM 


TH 


SRFOE>X*Ql f 




BC 


1>CSTGN 


CSTGQ 


BAL 


LINKB>SKLDA 




BC 


15,CSTGA 


CSTGN 


LA 


WORK>ERME07 




BC 


15,CSTGD1 
LINKB,5KCRDA 


C5TGP 


BAL 




BC 


15>CSTGA 




EJECT 





EXPECTED CSID IN PRECEDING 
*OLB RECORD - NO 
INSERT CS 
IS OLD FILE END 
YES-BRANCH (ERROR) 
NO- 
PRINT ERROR MESSAGE 
*AHD CONTINUE 
IS OLD FILE END 
YES-BRANCH (ERROR) 
COPY AN OLD CS 
TO NEXT CS 
PRINT ERROR MESSAGE 
*AND CONTINUE 
SKIP HOD IF CARDS UP TO 
*NEXT CS 



******************* 



* * * 
* 

* END OF FILE TREATMENT 
* 

* 1ST ENTRY AT CSTGCFROM THE T CS TREATMENT* ROUTINE . 

* -PRINT A MESSAGE IF ANY ERROR HAS OCCURED DURING THE 

* TREATMENT OF THE PRECEDING FILE . 

* -PRINT A MESSAGE FOR EACH ERROR CODE (I,0>N OR D)PRINTED 

* IN THE PRECEDING LIST, 

* -BRANCH TO CSTGC5 . 
* 

* 2ND ENTRY AT CSTGC5,FROH THE 'COPY AN OLD FILE' ROUTINE . 

* -WRITE A TAPE MARK ONTO *UPDTNEW* • 

* -WRITE A TAPE MARK ONTO *DUPLFILE* , IF ANY MODULE HAS 

* . BEEN WRITTEN ON DUPLFILE • 

* -BRANCH TO C5TGC6 • 
* 

* 3RD ENTRY AT CSTGC6,FR0M THE 'DELETE AN OLD FILE* ROUTINE • 

* -READ THE FIRST RECORD OF THE NEXT OLD FILE, 

* -PRINT THE MESSAGE *FILE TREATMENT FINISHED*. 
* 

* EXIT 

* 

* * * * 
CSTGC 



TO 'FILE TREATMENT ROUTINE* AT FLTGA 



* PRINT 
CSTGC4 



CSTGC2 



******************************** 

BAL LINKE,PRLINA SKIP 1 LINE 

TM SMERR>X f 01* ERROR DETECTED FOR THIS 

BC 6>CSTGC4 *FILE - NO 

LA NORK»ERME26 PRINT ERROR MESSAGE 

BAL LINKD»PRME1 * 

BAL LINKE>PRLINA SKIP 1 LINE 



A MESSAGE FOR EACH ERROR CODE ALREADY PRINTED 



LA NORK>ERTBG*16 

SR WORKA,KORKA 

LA KQRKA,COD(WORKA) 

LNR WORKA,NORKA 

LA WORKB,ERTBG 

LA I40RKD>MSGTBL 

CLC BLANK(COD)>O(140RK) 



1ST ( RIGHT )ERROR CODE ADDRES 

ERROR CODE LENGTH 
NEGATIVE LENGTH 
LAST (LEFT) ERROR CODE ADDRES 
1STCLEFDERROR MESSAGE ADDR 
CODE NOT PRINTED 



A270718G 
A2707190 
A270720Q 
A2707210 
A2707220 
A27G7230 
A270724G 
A2707250 
A270726& 
A2707270 
A270723Q 
A2707290 
A2707300 
A2707310 
A270732D 
A2707330 
A27G73^0 
A2707350 
A2707360 
A270737Q 
A27Q7380 
A2707390 
A27G740Q 
A2707410 
A270742Q 
A27Q7430 
A2707A4G 
A2707450 
A2707460 
A2707470 
A2707480 
A2707490 
A2707500 
A27D7510 
A2707520 
A270753Q 
A2707540 
A270755G 
A27Q756G 
A2707570 
A2707580 
A2707590 
A2707600 
A2707610 
A2707620 
A2707630 
A27076AO 
A270765G 
A2707660 
A270767G 
A270768D 
A270769D 
A270770Q 
A2707710 
A2707720 





BC 


B,CSTGC3 


YES 


A2707730 




KVC 


FRZONE*G(83)>0(WORKD) 


PRINT THE MESSAGE WHICH IS 


A2707740 




BAL 


LINKE>PRLINA 


^DEFINED BY THE CODE 


A2707750 




01 


SWERR>X'Q2' 


ERROR DETECTED AT JOB LEVEL 


A2707760 


CSTGC3 


LA 


W0RKD>83(W0RKD) 


NEXT MESSAGE ADDRESS 


A2707770 




BXH 


W0RK>W0RKA,CSTGC2 


TO NEXT CODE (RIGHT TO LEFT 


A2707780 


* ! 


SEARCH 1ST RECORD OF NEXT FILE 




A27D779D 


CSTGC5 


BAL 


LINKF>OWTMRK 


WRITE TAPE MARK ON UPDTNEW 


A2707800 




m 


DPLSW,X'01' 


DUPLICATING PERFORMED 


A2707810 




BC 


6>CSTGC6 


NO -BRANCH 


A27Q782G 




BAL 


LINKF>ODTMRK 


WRITE TAPE MARK ON DUPLFILE 


A2707830 


C5TGC6 


NI 


BPLSW,X'FE' 


DUPLICATING NO PERFORMED 


A27G784Q 




TH 


SN0LD>X'G3' 


IS OLD DATA END 


A27G7850 




BC 


1,CSTGC7 


YES BRANCH 


A2707860 




TH 


SWOLD>X'03 f 


THE LAST FUNCTION WAS A 


A2707870 




BC 


8>CSTGC7 
LINKCRDOLD 


*FILE INSERTION-YES 


A2707880 




BAL 


READ 1 OLD RECORD 


A2707890 




BC 


15,CSTGC7 


DATA END (7F)2 


A2707900 




BC 


15,CSTGC7 


(FILE END (7F)1) 


A2707910 




BC 


15,CSTGC7 


CS END (OLD RECORD) 


A27G7920 


CSTGC7 


BAL 


LINKE>PRLINA 


NOT CS END(OLD R.)SKIP LINE 


A2707930 




LA 


W0RK>MESS27 


PRINT MESSAGE 


A2707940 




BAL 


LINKD,PRME3 
15,FLTGA 


* 


A2707950 




BC 


TO NEXT FILE 


A270796Q 




EJECT 




A2707970 


* * * * 


* * * 


************** 


*************** 


A2707980 


* 






* 


A2707990 


* NORMAL END OF JOB ROUTINE 


* 


A2708000 


* 






* 


A2708010 


* ENTRY AT NLSTOP >FROM THE TILE TREATMENT* ROUTINE . * 


A270802Q 








* 


A2708030 


* FUNCTIONS 


-WRITE A TAPE HARK ON 'UPDTNEW' . * 


A2708040 


* 




-WRITE A TAPE MARK ON'BUPLFILE' IF ANY FILE HAS BEEN * 


A27 08050 


* 




DUPLICATED. 


* 


A27080&0 


* 




-WRITE A TAPE HARK ON THE 'PRINTER 'DEVICE IF THIS DEVICE * 


A2708070 


* 




ASSIGNED IN DEVSUP CARD IS A MAGNETIC TAPE* * 


A2708080 








* 


A2708090 


* 




-PRINT THE MESSAGE 'END OF UPDATING*. * 


A2708100 


* 




-PRINT THE MESSAGE 'POSSIBLE UPDATING ERROR' IF ANY * 


A2708110 






ERROR HAS OCCURED DURING 


THIS UPDATING. * 


A2705120 








* 


A2708I30 


* EXIT 


TO 


-JOBEND ( REWIND ROUTINE). 


* 


A2703I40 


* 






* 


A2703150 


* * * * 


* * * 


************** 


*************** 


A27C8160 


NLSTOP 


BAL 


LINKF>OWTMRK 


WRITE LAST T.M. ON UPDTNEW 


A2708170 




TM 


DPLSW>X'G2' 


DUPLICATING PERFORMED 


A2708180 




BC 


8>NLST1 
LINKF,ODTMRK 


NO -BRANCH 


A27CS190 




BAL 


WRITE LAST T.M. ON DUPLFILE 


A2708200 


NLST1 


LA 


N0RK>HES534 


PRINT MESSAGE 


A27082I0 




BAL 


LINKD,PRME3 


* 


A2708220 




LA 


N0RK,MESS34 


PRINT A MESSAGE 


A2708230 




BAL 


LINKE,EDCSL2 


*0N PRINTER-KEYBOARD 


A2708240 




TM 


Sf4ERR>X*02 f 


ERROR DETECTED 


A2708250 




BC 


B,NLST2 


NO 


A2708260 




LA 


W0RK>ERME37 


PRINT ERROR MESSAGE 


A2708270 





EAL 


LINKD,PRME1 




* 


A270S280 




LA 


N0RK,ERHE37 




ERR-MESSAGE TO 


A2708290 




BAL 


LINKE,EDCSL1 




^PRINTER-KEYBOARD 


A27C8300 


MLST2 


BAL 


LINKF>0PRSKP 




SKIP TO NEXT PAGE 


A27C8310 




NVC 


DVNAME(B),0PRIN2*2 




SEARCH TYPE OF PRINTER 


A2708320 




BAL 


LINKF,DEVTST 




* DEVICE 


A2703330 




BC 


15,NLST4 






A2708340 


NL5T4 


CLC 


DVTYP(4),TAPTYP 




PRINTER IS REALLY A PRINTER 


A2708350 




BC 


7,NLST3 




*DEVICE,IS NOT TAPE OPTION 


A2703360 




BAL 


LINKFjOPTHRK 




WRITE T.H. ON 'PRINTER' 


A2708370 


NLST3 


BC 


15, JOBEND 




TO 'REMIND AND STOP 'ROUTINE 


A2708380 




EJECT 








A2708390 


* * * * 


************** 


* * 


**************** 


A2708400 










* 


A2703410 


* EXCEPTIONAL END OF JOB ROUTINE 




* 


A270S420 


* 








* 


A2708430 


* 1ST ENTRY AT 


ERSTPA,FROM 'CONSOLE MESSAGE WRITING '(EXCEPTION. RETURN)* 


A27Q8440 










* 


A2708450 


* 2ND ENTRY AT 


ERSTPC OR ERSTPH 




* 


A27 08460 


* 




FROM THE I/O ROUTINES 


(EXCEPTIONAL RETURN) . * 


A27G3470 






(01-UNKNQWN SYMBOL 


) 


* 


A270S480 


* 




(OZ-DEVICE MALFUNCTION ) 


* 


A2708490 


* 




(G3-STICKER DETECTED ON 


A TAPE) . * 


A2708500 










* 


A2708510 


* 3RD ENTRY AT 


ERSTPD,FROM 'INITIALIZATION ROUTINE* * 


A27C8520 


* 




(THE 1ST CARD IS NOT A / 


UPDATE CARD) * 


A2708530 






(THE 1ST OLD RECORD 


IS A 


TAPE HARK) * 


A2708540 


* 








* 


A2708550 


* 4TH ENTRY AT 


ER5TPE,FR0M THE 'PROGRAM CHECK 'ROUTINE . * 


A270B560 


* 








* 


A27C3570 


* FUNCTIONS • 


-WRITE ERROR MESSAGES 


(PRINTER AND PR INTER -KEYBOARD) . * 


A27G8580 










* 


A27G8590 


* EXIT 


TO -JOBEND (REMIND ROUTINE) . 


* 


A2708600 


* 








* 


A2708610 


* * * * 


************** 


* * 


**************** 


A2708620 


ER5TPO 


BCR 


0,0 






A270S630 


ERSTPC 


LA 


W0RK,ERME26 




WRITE ERROR MESSAGE 


A2708640 




BAL 


LINKE,EDCSL1 




* 


A2708650 


ERSTPB 


TM 


SWPRER,X'G1' 




WAS PRINTER ERROR 


A2708660 




BC 


I>ERSTPF 




*YES- 


A2708670 




BAL 


LINKE>PRLINA 




SKIP 1 LINE 


A2708680 




LA 


W0RK,ERKE28 




PRINT ERROR MESSAGE 


A270369G 




BAL 


LINKD,PRME1 




* 


A2703700 




BAL 


LINKF,OPRSKP 




SKIP TO NEXT PAGE 


A2708710 


ERSTPF 


TH 


SWDUHP,X'G1' 




DUMP REQUESTED BY PROGRAM 


A2708720 




BC 


8, ERSTOP 




NO 


A2708730 


* 


DUMP 


AND STOP 






A2708740 




BC 


15, ERSTOP 






A2708750 




CNOP 


2,4 






A270S760 




SVC 


12 




DUMP 


A2705770 




DC 


A(0) 






A2708780 




DC 


F f 16384' 






A2708790 




DC 


C'EDITDUHP' 






A27G8800 


ERSTOP 


BC 


15, JOBEND 




TO 'REWIND AND STOP'ROUTINE 


A2708810 


ERSTPH 


01 


SWFRER,X'01' 




PRINTER ERROR 


A2708820 



15,ER5TPC 
SWDUHP»X'01 f 
15,ERSTPD 
SWDUMP,X f Ql f 
15,ERSTPB 

*********************** 



BC 

ERSTPE 01 
BC 

ERSTPA 01 

BC 

EJECT 
******* 
* 

* REMIND ROUTINE 
* 
* 

* 
* 

* FUNCTIONS 
* 
* 

* STOP (ENTER WAIT STATE ) 

* 

* * * * 
JOBEND 



ENTRY AT JOBEND, FROM THE r NORMAL END OF JOB * ROUTINE 
OR THE 'EXCEPTIONAL OF JOB 'ROUTINE 



REMIND EACH DEVICE, DEFINED AS TAPE IN DEVSUP CARDS 
(UPBTOLD,UPDTNEW,UPDTCORR,DUPLFILE, PRINTER) . 



J0BEN5 

J0BEN4 

J0BEN3 

J0BEN2 

J0BEN1 
J0BEN3 

J0BEN6 



J0BEN7 



STOP 



* * * 
SVC 
SR 
LA 
MVC 
BC 
MVC 
BC 
MVC 
BC 
MVC 
BC 
MVC 
BAL 
BC 

BCTR 
CLC 
BC 
MVC 
BAL 
CH 
BC 
CH 
BC 
BC 
LTR 
BC 
SVC 
BC 
EJECT 

* * * * 



*************** 
9 

NORKD,WORKD 
W0RKD,5(N0RKB) 
DVNAME(8),IRECD+2 
15,J0BEN8 

DVNAME(B),0PRIN2+2 
15,J0BBi3 

BVNAME(8),0WRIT2+2 
15,J0BEN8 

DVNAHE(8),0DUPL2*2 
15,J0BEN8 
DVNAHE(8),ICARD+2 
LINKF,DEVTST 
15,J0BEN6 
NORKB,0 

DVTYP(4),TAPTYP 

7, J0BEN7 
REHABD(2),DVADD 
LINKF, REWIND 
WORKD,KB*i 

8, JOBEND 
W0RKB>KB2 
2,J0BEN3 

6, J08EN2 
WORKD,NORKD 

7, J0BEN1 
19 

15,*-2 



****** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

************** 
ENABLE 

LOAD *5 f IN WORKD 
* 

NORKD =5, SEARCH DEVICE TYPE 
*AND ADDRESS OF "UPDTOLD* 
H0RKD=4, SEARCH DEVICE TYPE 
*AND ADDRESS OF f PR INTER* 
MORKD= 3, SEARCH DEVICE TYPE 
*AND ADDRESS OF f UPDTNEM f 
W0RKD=2. SEARCH DEVICE TYPE 
*AND ADDRESS OF f DUPLFILE f 
K0RKB=1,IDEM FOR 'UPDTCORR' 
SEARCH DEVICE TYPE AND ADD. 
NOT FOUND 

FOOMD-MORKD=HORKD-1 

THE DEVICE IS A TAPE DEVICE 

NO 

STORE THIS DEV. ADD TO ADDR. 
*AREA OF SVC13,AND REWIND 
NORKD = 

*=4 REWIND UPDTOLD 
* 

*=3 REWIND UPDTNEW 
*=2 REWIND DUPLFILE 
* 

*=1 REWIND UPDTCORR 
*=0 STOP 



*************************** 



* * * * 

* 

* RECORDS TREATMENT ROUTINE 
* 

* ENTRY AT RCTGB 

* -1- FROM T CS TREATMENT ROUTINE f WHEN 

* REQUESTED • 



A CORRECTIONS RECORD 1 



* 
* 
* 
* 
* 

IS * 

* 



A27G883Q 
A270B8^0 
A2708650 
A27G6860 
A2708870 
A27GB68Q 
A2708890 
A2708900 
A270S91G 
A2708920 
A2708930 
A278894Q 
A270S95O 
A27CB960 
A27GS970 
A27G8980 
A27C3990 
A27O9O0O 
A2709010 
A2709020 
A2709D3Q 
A2709Q4Q 
A2709050 
A2709069 
A2709070 
A270908D 
A2709090 
A27Q910Q 
A2709110 
A2709120 
A2709130 
A2709140 
A2709150 
A2709160 
A270917D 
A2709180 
A270919G 
A2709200 
A2709210 
A27C9220 
A2709230 
A2709240 
A270925G 
A27092G0 
A27G9270 
A270928D 
A270929D 
A27093Q0 
A270931G 
A2709320 
A270933Q 
A27G9340 
A2709350 
A2709360 
A27D9370 



* -2- FROM THIS ROUTINE NHEN A CORRECTION HAS BEEN PERFORMED IN * 

* THE CURRENT HODULE « * 

* * 

* DATA - THE FOLLOWING CARDS AND RECORDS HAVE BEEN READ * * 

* - A RIS CARD RELATED TO THE CURRENT HODULE (OR A RIS CARD RELA- * 

* TED TO THE NEXT NODULE, OR A / UPDATE CARD, OR NO * 

* MORE CARD ) . * 

* - 1 OLD RECORD FROM THE CURRENT HODULE (OR THE 1ST RECORD OR THE* 

* NEXT HODULE, OR A TAPE HARK) . * 

* & 

* FUNCTIONS * 
* 
* 
* 
* 

* 

* 
* 
* 

* 
* 

* EXIT TO 

* -RCTGB (TREAT THE NEXT RECORDS SET) IN ALL 

* -C5TGA (CS TREATMENT ROUTINE) IF THE CURRENT MODULE IS 

* COHPLETLY PROCESSED • 



-SELECT THE ROUTINE TO BE USED (AND CALL IT BY BAL LINK)* 

1- SKCRDA(5KIP UPDTCORR UP TO NEXT RIS CARD (NEXT CS) ) 

IF THE REQUESTED FUNCTION CANNOT BE PERFORMED . 

2- SKLD8 (COPY 1 OLD RECORD) IF THE READ OLD RECORD IS 

NOT THAT SPECIFIED IN THE READ RIS CARD . 

3- SKLDC(COPY THE REMAINDER OF THE CURRENT HODULE) , 

IF THE LAST RIS CARD RELATED TO THIS MODULE HAS 
EEEN PERFORMED . 

4- REPLA (REPLACE N OLD RECORDS) 

5- SUPPR (DELETE N OLD RECORDS) 

6- COUNT (NUMBER N OLD RECORDS) 

7- INSEB (INSERT N NEH RECORDS) 



* 
* 
* 

* 



* * * * 
RCTGB 



RCTGP 



RCTGK 
RCTGK1 



***************** 

TM SlCS,X f Q3 f 

BC 1,CST6A 

TM SlCSCE,X y 02 f 

BC 1,RCTGN 

TM RLVALD,X f 01 f 

BC 1>RCTGD 

CLI RLCNT,X f C9 f 

BC ?, RCTGP 

CLC RLNUHKNUM), BLANK 

BC 8>RCTGE 

BC 15,RCTGG 

TM SMCSOE,X v 01 f 

BC 1,RCTGI 

CLC RLBINl(4),OLBIN 

BC 7,RCTGM 

CLI RLCNT,X f D9 f 

BC 8, RCTGK 

CLI RLCNT>X f D5 f 

BC 8,RCTGK1 

BAL LINKA,SUPPR 

BC 15, RCTGB 

BAL LINKA,REPLA 

BC 15, RCTGB 

BAL LINKA, COUNT 

BC 15, RCTGB 



DEPENDING ON THE 
FUNCTION REQUESTED BY* 
THE READ RIS CARD . * 
* 
* 
* 

ABOVE CASES . * 
* 
* 
* 

************** 

ARE BOTH INPUT CS END 

YES-TO NEXT CS 

CARD CS END ONLY 

YES-BRANCH 

IS INVALID RIS READ 

YES-BRANCH (ERROR) 

READ RIS - INSERT REQUEST 

NO 

INSERT AT BEGINNING OF CS 
YES 

NO- INSERT IN CS 
CURRENT OLD CS END 
YES 

IS EXPECTED OLD RECORD 

NO 

READ RIS - REPLACE REQUEST 
YES 

READ RIS - NUMBERING REQU. 

YES 

SUPPRESS OLD RECORDS 
TO NEXT SET 
REPLACE OLD RECORDS 
TO NEXT SET 
NUMBER OLD RECORDS 
TO NEXT SET 



A27G938G 
A27G939G 
A27Q9400 
A27G941Q 
A27G942Q 
A2709430 
A2709440 
A27G9450 
A27G9460 
A27Q9470 
A270948G 
A27G9490 
A2709500 
A2709510 
A270952Q 
A27G9530 
A2709540 
A270955Q 
A27G95&G 
A2709570 
A270958D 
A27G9590 
A27G96GG 
A27G9610 
A27G9620 
A2709630 
A27G964G 
A27G9650 
A27G966G 
A27G9670 
A27D9680 
A27G9£90 
A27097GG 
A270971G 
A270972G 
A270973G 
A27G974G 
A27G975G 
A27G9760 
A27G977G 
A27G9780 
A27G979G 
A27G980G 
A27G981G 
A27G982G 
A27G983G 
A2709840 
A27G985G 
A27G986Q 
A27G987G 
A27G983G 
A27G989G 
A27099GD 
A27G9910 
A27G9920 



RCTGH 


BAL 


LINKB,SKLDC 


COPY THE CS REMAINDER 


A27Q993Q 




BC 


15,RCTGB 


TO NEXT SET 


A2709940 


RCTGD 


LA 


NORK»ERHE06 
LINKD,PRME1 


PRINT ERROR MESSAGE 


A2709950 


RCTGDI 


BAL 


*AND 


A2709960 




BC 


15, RCTGL 


^CONTINUE 


A2709970 


RCT6E 


TH 


swcsoi,xw 


IS 1ST RECORD OF OLD CS 


A27Q9980 




BC 


1, RCTGF 


NO-BRANCH (ERROR) 


A2709990 


RCTGE1 


BAL 


LINKA,INSEB 


INSERT 1ST SET OF NEW CS 


A2710000 




BC 


15,RCTGB 


TO NEXT SET 


A2710010 


RCTGF 


LA 


NORK,ERME09 


PRINT ERROR MESSAGE 


A2710020 




BC 


15, RCTGDI 


*AND CONTINUE 


A271G030 


RCTGG 


CLC 


RLBIN1C4),0PBIN 


EXPECTED OLD RECORD IS READ A271004Q 




BC 


7, RCTGH 


NO-BRANCH 


A2710D50 




BC 


15,RCTGE1 


INSERT 1 SET IN NEH CS 


A2710060 


RCTGH 


TH 


SSC5OE,X f 01 f 


IS OLD CS END 


A2710070 




BC 


8, RCTGH 


YES-BRANCH 


A2710050 




LA 


k*ORK,ERME09 


PRINT ERROR MESSAGE 


A2710090 




BC 


15, RCTGDI 


*AND CONTINUE 


A27101G0 


RCTGI 


LA 


k*ORK>ERME10 


PRINT ERROR MESSAGE 


A271011D 




BC 


15, RCTGDI 


*AND CONTINUE 


A271D12Q 


RCTGL 


BAL 


LINKB,5KCRDA 


SKIP MOD IF CARDS UP TO 


A2710I30 




BC 


15,RCTGB 


*THE NEXT CS 


A2710I40 


RCTGH 


BAL 


LINKS, SKLDB 


TREAT I OLD RECORD 


A2710150 




BC 


15,RCTGB 


TO NEXT SET 


A2710160 




EJECT 




A271GI70 


* * * * 


* * * 






* A2710IS0 










* A2710I9Q 


* REPLACE ROUTINE INITIALIZATION - CALLED 


BY BAL LIMA > REPLA 


* A27102DQ 


* 




-PRINT THE READ RIS CARD-IMAGE ♦ 


* A2710210 






-PRINT 'REPLACE REQUEST* . 




* A2710220 


* 




-INITIALIZE SWITCHES FOR THE f RISN T ROUTINE . 


* A271023D 






-BRANCH TO RISNC ( REPLACE , INSERT , SUPPRESS , NUMBER , ROUTINE* A271024D 










* A271025G 


* * * * 


* * # 






* A271026D 


REPLA 


NI 


SMSET,XW 


RESET SNSET 


A271G270 




NI 


SHIDT,X'FE f 


OLD CS ID NON CHANGED 


A271028Q 




HVC 


PRZ0NE+9(79) > RLZ0NEU 


PRINT RIS CARD 


A271029D 




BAL 


LINKE,PRLINA 
N0RK,MESS23 




A2710300 




LA 


PRINT 'REPLACE REQUEST* 


A2710310 




BAL 


LINKD,PRME3 
LINKE,FRLINA 


* 


A2710320 




BAL 


SKIP 1 LINE 


A271Q330 




mi 


SHRISN,X f Q8 f 


SWITCH-REPLACE REQUEST 


A271Q3^0 




BC 


15, RISNC 




A271G35G 




EJECT 




A271G3G0 


* * * * 


x * » 






* A271037G 










* A271G380 


* SUPPRESS ROUTINE INITIALIZATION - CALLED 


BY BAL LINKA,SUPPR 


* A2710390 






-PRINT THE READ RIS CARD-IMAGE . 


* A271040G 






-PRINT 'SUPPRESS REQUEST 1 . 




* A271G41G 


& 




-INITIALIZE SWITCHES FOR THE 


f RISN* ROUTINE . 


* A271042G 






-SAVE READ RIS CARD IN PRECEDING RIS CARD AREA • 


* A271G43G 






-CREATE A BUHHY MODIFICAT* CARD IN READING BUFFER • 


* A271G440 






-BRANCH TO RISNC( REPLACE , INSERT , SUPPRESS ,NUMBER> ROUTINE )* A271Q45Q 










* A271046G 


* * » * 


* * * 






* A271Q47D 



SUPPR 



SUPPR1 



NI 


SHSET,X'QG' 


BIT2»LAST KODIF FOUND 


01 


SMSET>X'23' 


BIT4,1ST HOB IF TREATED 


HI 


SWIDT,X'FE' 


OLD C5 ID Um CHANGED 


HVC 


PRZ0NE+9(79),RLZ0NE+1 


PRINT RIS CARD 


BAL 


LINr(E>PRLINA 


* 


LA 


S40RK>NES524 


PRINT 'SUPPRESS REQUEST* 


BAL 


LINKD>FRKE3 




BAL 


LINKE>PRLINA 


SKIP 1 LINE 


HVI 


SWRISN,X'02' 


SWITCH-SUPPRESS REQUEST 


BAL 


LIKKE,FRCRI5 


READ RIS TO PRECEDING RIS 


HVI 


HLZ0NE,X'4G' 


CREATE 


HVC 


NLZ0NE+1(79)>HLZ0NE 


* A BUHMY 


HVC 


HLC5DC8)>BLANK 


* HOD IF CARD 


HVC 


HLHUH(8)»ZER0F 


* 


HVC 


HL8IN(4),ZER0 


* 


HVC 


HLNBR(4)>ZER0 


* 


HVC 


HLVAL0(l),ZERO 


* 


BC 


15,RISNC 




EJECT 







* * 

* 



***************************** 



BY BAL LIMA* IN SEA 
BY BAL LINKA>INSEB 



* * * * * 
* 
* 
* 
* 
* 
* 



* INSERT ROUTINE INITIALIZATION 

* INSERT A MODULE - CALLED 

* INSERT N RECORDS - CALLED 

* -PRINT THE READ RIS CARB-INAGE 

* -PRINT 'INSERT REQUEST '. 

* -INITIALIZE SWITCHES FOR THE f RISN f ROUTINE . * 

* -BRANCH TO RISNC ( REPLACE , INSERT , SUPPRESS .NUMBER , ROUTINE )* 

* * 

***************** 

OLD CS END 
OLD SET END 
* 

OLD CS ID HON CHANGED 
PRINT RIS CARD 
* 

PRINT 'INSERT REQUEST' 

* 

SKIP 1 LINE 



******************* 


INSEA 01 


S4CS,X'G5' 


INSEB NI 


SUSET,X f CO' 


01 


5WSET,X'15 f 


NI 


S4IDT,X'FE' 


HVC 


PRZ0NE*9(79),RLZ0NEU 


BAL 


LINKE,PRLINA 


LA 


HQRK,HESS22 


BAL 


LINKD,PRME3 


BAL 


LINKE>PRLINA 


HVI 


SWRISN,XW 


BC 


15,RISNC 


EJECT 





* * 
* 



************** 



******************** 

* 

* NUHBERING ROUTINE INITIALIZATION - CALLED BY BAL LINKA, COUNT 



* -PRINT THE READ RIS CARD-IMAGE . 

* -PRINT 'NUMBERING REQUEST'* 

* -INITIALIZE SWITCHES FOR THE 'RISN' ROUTINE • 

* -SAVE READ RIS CARD IN PRECEDING RIS CARD AREA . 

* -CREATE A DUHHY HODIFICAT. CARD IN READING BUFFER . 

* -BRANCH TO RISNCC REPLACE , INSERT , SUPPRESS >NUMBER , ROUTINE )* 

* * 
************************************ 
COUNT NI SNSET>X'00' BIT2,LAST HOD IF FOUND 

01 SWSET,X'28 f BIT4>1ST HODIF TREATED 



A271G480 
A271G49G 
A271D500 
A2710510 
A2710520 
A271G530 
A271C540 
A2710550 
A271G5&Q 
A2710570 
A2710580 
A2710590 
A271060Q 
A2710S10 
A271062G 
A2710&3G 
AZ710640 
A2710650 
A2710G6D 
A271Q670 
A271C680 
A2710G90 
A271070D 
A2710710 
A271072G 
A2710730 
A27IG740 
A271G750 
A271G76G 
A271G77G 
A271G78G 
A2710790 
A27I0500 
A2710810 
A271082G 
A27I083G 
A271Q840 
A2710550 
A2710360 
A271087G 
A27I088G 
A271GS9D 
A27IG9G0 
A2710910 
A2710920 
A271G930 
A271G940 
A2710950 
A27IG96G 
A271G97G 
A271G98D 
A27IG99G 
A2711000 
A2711G10 
A271102G 



NI 


SWIDT,X f FE* 


OLD C5 10 NON CHANGED 


A2711030 


CLI 


RU-IOD^CS* 


MODE f BY C5 f IH READ RIS CARD A2711040 


BC 


7,C0UNT1 


NO 


A2711050 


CLC 


RLCSDH8), BLANK 


NEW CS SPECIFIED IN READ 


A2711060 


BC 


8,C0UNT1 


*RIS CARD -NO 


A27I1070 


01 


SWIDT,X f Gl f 


CHANGE CS ID 


A2711080 


C0UNT1 MVC 


PRZ0NE+9(79),RLZ0NE+1 


PRINT RIS CARD 


A2711090 


BAL 


LINKE,FRLINA 


* 


A2711100 


LA 


N0RK,MESS25 


PRINT * COUNT REQUEST* 


A2711110 


BAL 


LINKD,PRME3 


x 


A27I1120 


BAL 


LINKE,PRLINA 


SKIP 1 LINE 


A2711130 


mi 


SWRISN,X f Gl T 




A2711140 


BC 


15,SUPFRi 




A2711150 


EJECT 






A2711160 



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A271I170 



* * A271118C 

* RISN ROUTINE (REPLACE, INSERT, SUPPRESS, NUMBER A MODULE OR RECORDS) * A2711190 

* * A2711200 

* ENTRY AT RISN, FROM ANY INITIALIZATION SUB ROUTINE OF THIS ROUTINE * A27112I0 

* ( f REPL , SUPPR , INSE , COUNT f ) . * A2711220 

* * A2711230 

* RETURN TO CALLER BY BCR 15,LINKA * A271124Q 

* * A2711250 

* PROCESSING- * A2711260 

* * A2711270 

* 1 RISNB -READ AN OLD RECORD , * A2711280 

* - DURING A REPLACING, A DELETING OR A NUMBERING OPERATION * A2711290 

* - UP TO THE NEXT MODULE (MODULE PROCESSING), * A2711300 

* OR UP TO THE OLD RECORD FOLLOWING THE LAST * A2711310 

* OLD RECORD TO BE CORRECTED (RECORDS PROCESSING). * A2711320 

* 2 RISNC -READ AN 'UPDTCORR' CARD * A2711330 

* - DURING AN INSERTING OR A REPLACING OPERATION * A27I134Q 

* - UP TO THE NEXT / UPDATE OR RIS CARD . * A2711350 

* 3 RISNF -WRITE 1 NEW RECORD ONTO 'UPDTNEW 1 , * A2711360 

* - DURING A NUMBERING, AN INSERTING OR A REPLACING OPERATION * A2711370 

* (INSERTION PHASE OF A REPLACEMENT) . . A2711380 

* - FROM AN OLD RECORD (NUMBERING), OR FROM A MODIFICATION CARD * A2711390 

* (INSERTION OR REPLACEMENT ) , * A27114G0 

* 4 RISNF3- WRITE A DUPLICATE OF THE WRITTEN NEW RECORD , IF SO * A2711410 

* REQUESTED . * A2711420 

* 5 RISNG - PRINT ON THE SAME LINE * A2711430 

* - THE NEW RECORD IMAGE ( REPLACEMENT , INSERTION OR NUMBERING ) .* A2711440 

* - THE IDENTIFICATION OF THE CORRESPONDING CORRECTION CARD * A27I1450 

* (REPLACEMENT, OR INSERTION ) . * A271136Q 

* - THE IDENTIFICATION OF THE CORRESPONDING OLD RECORD * A2711470 

* (REPLACEMENT, DELETING OR NUMBERING) - * A2711480 

* (> RISNV -BRANCH TO RISNB IF THE FUNCTION HAS BEEN PERFORMED , * A271149G 

* OTHERWISE BRANCH TO f RISNP f • * A2711500 

* 7 RISNP - END OF ROUTINE * A2711510 

* - READ THE NEXT CARD (AFTER DELETING OR NUMBERING FUNCTION) * A2711520 

* (THE NEXT CARD HAS ALREADY BEEN READ AFTER REPLACEMENT OR * A2711530 

* INSERTION) . * A2711540 

* - TEST THE READ CARD. THERE IS AN ERROR IF * A2711550 

* -IT IS A MODIFICATION CARD (NEITHER / UPDATE NOR RIS) * A2711560 

* -IT IS A RIS CARD REQUESTING A REPLACEMENTS DELETING * A2711570 



* 


OR A NUMBERING OF THE OLD MODULE WHICH HAS BEEN TREATED. * 


A271158G 


* 


- IF AN ERROR IS DETECTED, A MESSAGE IS PRINTED AND THE RIS * 


A271159G 


* 


AND MODIFICATION CARDS RELATED TO 


THE SAME MODULE ARE * 


A27116G0 


* 


PRINTED WITHOUT INVOLVING CORRECTIONS • * 


A271161G 


* 8 RISNL - 


ROUTINE INTERRUPTED BEFORE NORMAL END * 


A2711620 


* 


- DURING AN T UPDTCORR f CARD READING 


, AN RIS CARD IS NOT * 


A2711630 


* 


FOLLOWED BY A MODIFICATION CARD > 


OR THE IDENTIFICATION OF * 


A2711630 




A MODIFICATION CARD IS NOT CORRECT . * 


A2711650 




- A ME 


SSAGE IS PRINTED . 


* 


A27116S0 


* 


- THE REMAINDER OF THE CURRENT OLD MODULE IS COPIED ON UPDTNEW* 


A2711670 




- THE RIS AND MODIFICATION CARDS RELATED TO THE SAME MODULE * 


A2711S80 




ARE PRINTED WITHOUT INVOLVING CORRECTIONS . * 


A2711690 








* 


A2711700 


* * * * 


* * * ■ 


*************** 


************** 


A2711710 




EJECT 






A271172Q 


RISNB 


TM 


5WSEOL*X f 10 f 


LAST OLD RECORD OF SET IS 


A2711730 




BC 


1*RISNC 


*TREATED(TO INSERT ACTION) 


A2711740 




CLC 


0LBIN(4)»RPBIN2 


LAST OLD RECORD FOUND 


A271175G 




BC 


**,RISNK 


NO 


A2711760 




CLI 


RFM0D>X f C3 f 


MODE IN PRECEDENT RIS IS 


A2711770 




BC 


8,RISNK 


*PER CS ~YE5 


A2711780 




01 


SHSEOL>X f lG f 


LAST OLD RECORD TREATED 


A2711790 


RI&JK 


BAL 


LINKCRDOLD 


READ I OLD RECORD 


A2711800 




BC 


15>RISHA 


(OLD DATA END (7F2)) 


A2711810 




BC 


15 > RISNA 


OLD FILE END (7F1) 


A2711820 




BC 


15, RISNA 


OLD CS END 


A2711830 




CLC 


0LBINC4),RPBIN2 


LAST OLD RECORD FOUND 


A27118^Q 




BC 


12, RISNC 


NO 


A27 11850 




CLI 


RFM0D,X f C3 f 


MODE IN PRECEDENT RIS IS 


A2711860 




BC 


8>RISNC 


*PER CS -YES 


A271187Q 


RISNA 


01 


SNSEOL,X f 10' 


LAST OLD RECORD TREATED 


A271I880 


RISNC 


TH 


5WSECL,X f 20 f 


LAST MODIF TREATED 


A2711390 




BC 


1,RISNF 


*(T0 SUFPR.OR COUNT ACTION) 


A2711900 




BAL 


LINKC>RDCRD 


READ A CARD 


A2711910 




BC 


15>RISNS 


CARD DATA END 


A2711920 




BC 


15, RISNS 


CARD FILE END 


A2711930 




BC 


15>RISN5 


CARD CS END (RIS) 


A2711940 




BC 


15,RI5NS 


NOT CS END (RIS) 


A2711950 




TM 


Sk ? SECl,X f 08 f 


1ST MODIF CARD OF SET 


A271196G 




BC 


8,RISND 


YES-BRANCH 


A2711970 




CLC 


MLC5D(C5),MPCSD 


IS NOT SAME CS IN READ MOD. 


A271198D 




BC 


7, RISNL 


*AS IN PRECEDING-ERROR 


A2711990 




BC 


15,RISNE 


IS THE SAME CS -BRANCH 


A2712000 


RISND 


CLI 


RPM0D,X f C3 f 


CORRECTION MODE PER CS 


A2712010 




BC 


6,RISNN 


YES 


A2712020 




CLC 


MLCSD(C5),RPCSD1 


INCORRECT CS IDENT IN 1ST 


A2712030 




BC 


7>RISNL 


*MODIF CARD AFTER RIS-YES 


A2712040 




BC 


15,RISNE 


MO 


A2712050 


RISNN 


CLC 


MLCSL(1),2ER0 


THE LENGTH OF CS-ID PART IN 


A2712060 




BC 


8, RISNL 


*READ MODIF IDENTIFICATION 


A2712070 




CLC 


MLCSL(1),KB8+1 


*EQUAL 0 OR 8 


A2712G30 




BC 


8, RISNL 


YES-ERROR 


A27I2090 




BC 


15,RISNE 


NO 


A271210G 


RISNS 


TM 


SHSECl,X f G8 f 


NOT ANY MODIF CARD HAS BEEN 


A2712110 




BC 


8, RISNL 


*READ AFTER RIS-ERROR 


A2712120 





01 


SWSECL>X'20 f 


LAST HODIF TREATED 


A2712130 




TH 


SWSEOL>X f 10 f 


LAST OLD RECORD OF SET 


A2712140 




BC 


8, RISHG 


* HAS BEEN TREATED-N0 


A2712I50 




BC 


15, RISNV 


* YES 


A27I2160 


RISNE 


TH 


MLVALD>X f 01 f 


NOT INVALID NUMBER IN READ 


A2712170 




BC 


8, RISNF 


* HODIF CARD 


A2712180 




HVC 


ERTBG+16(C0D) >H5GTBL 
ERC0DH6(C0D),HSGTBL 


I TO ERROR CODES STORAGE 


A2712190 




HVC 


I TO PRINT BUFFER 


A2712200 


RISNF 


TH 


SWRISN,X f 01' 


IS COUNT REQUE5T 


A2712210 




BC 


1>RISNF1 


YES-BRANCH 


A2712220 




TH 


SWSECL,X*20 f 


LAST HODIF CARD OF SET IS 


A2712230 




BC 


1, RISNG 


* TREATED (SUPPRESS ACTION) 


A2712240 




BAL 


LIKKCENRMA 


STORE HODIF CARD TO NEW 


A2712250 




BC 


15>RISNF3 


*RECORD BUFFER 


A2712260 


RISNFi 


TH 


Sl4SEOL>X'10 f 


LAST OLD RECORD HAS BEEN 


A2712270 




BC 


1, RISHG 


*TREATEB-YES 


A27122S0 




TH 


SWSE01,XW 


IS FIRST OLD RECORD OF SET 


A271229D 




BC 


8,RISMF2 


YES 


A2712300 




BAL 


LINKC> ENRON 


OLD RECORD TO NEW RECORD 


A2712310 




BC 


15,RI5NF3 


*(NOT THE FIRST IN SET) 


A2712320 


RISNF2 


BAL 


LINKCENROl 


1ST OLD TO NEW RECORD 


A271233Q 


RISNF3 


BAL 


LINKF>OWRITE 


NEW RECORD WRITING OPERAT. 


A27I2340 




CLI 


RPDUPL>X f C4* 


DUPLICATION REQUESTED 


A2712350 




BC 


7>RI5NF4 


NO -BRANCH 


A2712360 




BAL 


LINKF>ODUPL 


NEW RECORD DUPLICATION 


A2712370 




01 


DPLSW,X T 03 f 


DUPLICATION PERFORMED 


A2712380 


RISNF4 


BAL 


LINKE, FREDA 


NEW RECORD TO PRINT BUFFER 


A2712390 




BAL 


LINKE,PREDE 


HODIF CARD TO PRINT BUFFER 


A27124D0 


RISNG 


TH 


SWSEOL,X f lG f 


LAST OLD RECORD TREATED 


A27124I0 




BC 


1, RISNX 


*( INSERT ACTION) -YES 


A2712420 




BAL 


LINKE>PREDD 


OLD RECORD TO PRINT BUFFER 


A2712430 




BC 


15, RISNH 




A2712440 


RISNX 


TH 


SWSECL,X f 20 f 


LAST HODIF CARD TREATED 


A27I245Q 




BC 


1, RISNV 


YES 


A2712460 


RISNH 


BAL 


L3NKE,PRLINA 


PRINT ONE LIST LINE 


A2712470 


RISNV 


01 


SWSET,X*OC* 


1ST OLD REC.AND HOD. TREATED 


A2712480 


RISNJ 


TH 


SI4SET,X f 30 f 


BOTH INPUT SETS END 


A271249G 




BC 


12>RISNB 


NO 


A2712500 


* END OF FUNCTION AT END OF BOTH SETS 


(CORRECT) 


A2712510 


RISNP 


TM 


SWRISN,X*Q3 f 
4, RISNT 


WAS SUPPR OR NUMBER. ROUTINE 


A2712520 




BC 


YES 


A27I253D 




TH 


SWCSCE>X f 02 f 


IS CARD CS END 


A2712540 




BCR 


1>LINKA 


YES-RETURN TO CALLING 


A27125S0 




CLC 


RLC0D(4),RI5C0D 


AN RIS CARD HAS BEEN READ 


A271256G 




BC 


7>RISNQ 


NO-IS HODIF CARD-ERROR 


A2712570 




BC 


15,RISNR 




A27I258D 


RISNT 


BAL 


LINKC>RDCRD 


READ A CARD 


A2712590 




BC 


15>0(LINKA) 


CARD DATA END 


A2712600 




BC 


15>G(LINKA) 


CARD FILE BID 


A2712610 




BC 


15,0(LINKA) 


CARD CS END(RIS) 


A2712620 




BC 


15>RISNR 


NOT CS END (RIS) 


A2712S30 


RISNQ 


LA 


W0RK,ERME14 


ERROR 


A2712&40 




BAL 


LINKD»FRHE1 


*PRINT ERROR MESSAGE 


A2712650 




BAL 


L3NKB>SKCRDA 


SKIP HODIF FILE UP TO 1ST 


A2712660 




BCR 


15,LMvA 


*RIS (NEXT CS) 


A2712670 



RISNR 


CLI 


RFM0D,X'C3 f 


THE PRECEDING RIS MODE IS 


A271268G 




BCR 


7,LINKA 


*FER CS- NO 


A271269Q 




CLI 


RLCNT,X*C9 f 


THE READ RIS CARD REQUESTS 


£2712700 




BCR 


8,LINKA 


* AN INSERTION - YES 


A2712710 




BC 


15,RISNQ 


NO-ERROR 


A2712720 


* EXCEPTIONAL 


END OF ROUTINE 




A2712730 


RISNL 


01 


SMSECE,X*G2 f 


IS CARD SET END 


A2712740 




LA 


W0RK>ERME12 


PRINT ERROR MESSAGE 


A2712750 




BAL 


LINKD,PRME1 


* 


A2712760 


RISTfi 


TH 


SMCSOE>X r 01 f 


IS OLD CS END 


A2712770 




BC 


1, RISNN 


* 


A2712780 




BAL 


LINKB >SKLDC 


COPY THE REMAINDER OF CS 


A2712790 


RISNN 


TM 


SNCSCE,X'02 f 


IS CARD CS END 


A2712300 




BCR 


1>LINKA 


YES-RETURN TO CALLING 


A2712810 




BAL 


LINKB, SKCRDA 


SKIP CARD SETS UP TO 


A271282Q 




BCR 


15,LINKA 


*NEXT CS L. 


A2712830 




EJECT 






A271283G 


* * * * 




**************** 


A2712850 








* 


A2712860 


* SKIP 


f UPDTCORR* CARDS - CALLED BY 


BAL LINKB, SKCRDX * 


A2712870 










A2712880 


* ENTRY AT SKCRDA - SKIP RI5 AND MODIFICATION CARDS RELATED TO THE * 


A2712890 






SAME MODULE . 




A27129O0 


* ENTRY AT SKCROH - SKIP RIS AND EDIFICATION CARDS RELATED TO THE * 


A2712910 






SAME FILE . 


* 


A2712920 


% 








A2712930 


* THE CARD IMAGES OF / UPDATE AND RIS CARDS ARE PRINTED . * 


A2712940 


* THE IDENTIFICATIONS OF MODIFICATION CARDS ARE PRINTED . * 


A271295G 










A271296Q 


* * * * 


**************** 


**************** 


A27I2970 


SKCRDA 


NI 


SJ4SKl>X f 00 ¥ 


SKIP UP TO NEXT CS 


A2712980 




BC 


15, SKCRDB 




A2712990 


SKCRDH 


01 


SM5Kl,X f 01* 
RLC0D(4),RISC0D 


SKIP UP TO NEXT FILE 


A2713000 


SKCRDB 


CLC 


RIS CARD IN READING BUFFER 


A2713010 




BC 


8 » SKCRDC 


YES 


A2713020 




CLC 


GLC0D(9),SLASH 


/ UPDATE IN READING BUFFER 


A271303D 




BC 


8, SKCRDD 
LINKE,PREDE 


YES 


A2713G40 




BAL 


MODIF CARD TO PRINT BUFFER 


A271305D 




BAL 


LINKE,PRLINA 


PRINT 1 LIST LINE 


A2713060 


SKCRDF 


BAL 


LINKCRDCRD 


CARD READING OPERATION 


A2713070 




BC 


15,0(LINKB) 


DATA END 


A27130BQ 




BC 


15,0 (LINKB) 


FILE END 


A271309Q 




BC 


15, SKCRDG 


CS END (RIS) 


A27I3100 




BC 


15, SKCRDB 


NOT CS END(RIS)- 


A2713110 




BC 


15, SKCRDB 


MODIF CARD -TO NEXT CARD 


A2713120 


SKCRDG 


TM 


SW5Kl,X f Ql f 


UP TO / UPDATE 


A2713130 




BC 


1, SKCRDB 


YE5-T0 NEXT CARD READING 


A271314Q 




BCR 


15, LINKB 


NO- RETURN TO CALLING 


A2713150 


SKCRDC 


BAL 


LINKE,PRLINA 


SKIP 1 LINE 


A2713160 




HVC 


PRZ0NE*9(79),RLZ0NE+1 


READ RIS CARD TO PRINT BUFF 


A2713170 




BC 


15, SKCRDE 


TO PRINTING OPERATION 


A2713180 


SKCRDD 


BAL 


LINKE,PRLINA 


SKIP 1 LINE 


A2713I90 




HVC 


PRZ0NE*3(8Q),GLZ0NE 


/ UPDATE CARD TO PRINT BUFF 


A271320D 


SKCRDE 


BAL 


LINKE,PRLINA 


PRINT RIS OR / UPDATE CARD 


A2713210 




BAL 


LINKE,PRLINA 


SKIP 1 LINE 


A2713220 





BC 


15,SKCRDF 




A2713230 




EJECT 




A2713240 


* * * * 


* * * 


************ 


***************** 


A2713250 


* 






* 


A2713260 


* COPY ALL OR PART OF AM OLD MODULE - 


CALLED BY BAL LBJKB»5KLDX * 


A2713270 








x 


A2713280 


* ENTRY AT SKLDA - COPY A WHOLE MODULE FOR WHICH KO CORRECTION HAS * 


A2713290 






BEEN REQUESTED . 


x 


A2713300 








x 


A271331G 


* ENTRY AT SKLDB - COPY A RECORD (WITHOUT CORRECTION) FROM A MODULE FOR* 


A2713320 


* 




WHICH SOME PARTIAL CORRECTIONS HAVE BEEN REQUESTED.* 


A2713330 


* 






x 


A2713340 


* ENTRY AT SKLDC - COPY THE REMAINDER OF A MODULE FOR WHICH SOME * 


A2713350 






CORRECTIONS HAVE BEEN REQUESTED . * 


A2713360 








x 


A271337Q 


* PROCESSING 


- EACH OLD RECORD IS WRITTEN ON'UPDTNEH* . * 


A2713380 


* 




- (SKLDB AND C ONLY) 


EACH OLD RECORD IS WRITTEN ON * 


A2713390 






'DUPLFILEMF REQUESTED BY THE CORRESPONDING RIS CARD 


A2713400 






- THE NEW RECORDS AND THEIR OLD IDENTIFICATIONS ARE * 


A271341G 






PRINTED , EXCEPT 


( SKLDA MIEN THE CORRESPONDING * 


A271342G 


¥e 




/ UPDATE CARD REQUESTS THE OPTION 'PRINT CORRECTED * 


A271343G 






MODULES ONLY * . 


x 


A2713¥iG 


* 






x 


A2713450 


* * * # 


* * * 


*****X»X***X 


xxxxxxxxxxxxxxxxx 


A2713460 


SKLDA 


MVI 


SWSK,X f QO f 


CS COPY 


A2713470 




HVC 


MESSG3*17(8),0LIDT 


PRINT 'THE CS XXX WILL BE 


A2713480 




LA 


WORK,MESS03 


* COPIED f 


A271349G 




BAL 


LINKD>PRME3 




A27135G0 




BC 


15, SKLDD 




A271351G 


SKLDB 


MVI 


SI45K>X*03* 


RECORD COPY 


A27I3520 




BC 


15, SKLDD 




A271353D 


SKLDC 


HVI 


SWSK,X*01 f 


REMAINDER OF CS COPY 


A2713540 


SKLDD 


BAL 


LINKCENROA 


OLD RECORD TO NEW RECORD 


A2713550 




BAL 


LINKF,OWRITE 


NEW RECORD WRITING OPERAT. 


A271356G 




TM 


Sts»SKAM,X T 01 f 


ALL CS TREATED 


A271357Q 




BC 


8, SKLDJ 


YES-BRANCH 


A271358G 




TM 


SUSKRD,X T Q2 f 


IS TREATMENT FOR 1 RECORD 


A271359G 




BC 


8, SKLDH 


NO -BRANCH 


A27136G0 




CLI 


RLDUPL,X f C4' 


DUPL. REQUEST BY READ RIS 


A271361G 




BC 


7, SKLDJ 


NO -BRANCH 


A271362G 




BC 


15, SKLDI 


YES 


A2713630 


SKLDH 


CLI 


RFBUPL,X T C4 f 


DUPL. REQUEST BY PRECDT.RIS 


A2713&4D 




BC 


7, SKLDJ 


NO -BRANCH 


A2713&50 


SKLDI 


BAL 


LINKF,ODUPL 


DUPLICATING OPERATION 


A271366G 




01 


BPLSW,X f 03 f 


DUPLICATION PERFORMED 


A271367G 


SKLDJ 


TH 


SWSK,X f GP 


TOTAL CS TREADED 


A2713680 




BC 


8, SKLDK 


YES 


A271369G 




BC 


15,SKLDE 


NO- PRINT 


A2713700 


SKLDK 


CLC 


ERCOD( 10), BLANK 


AMY ERROR CODE FOR THIS 


A2713710 




BC 


7,SKLDE 


*RECORD IN ERROR CODE AREA 


A271372G 




CLC 


ERCODH0(8), BLANK 


*0F PRINT BUFFER 


A2713730 




BC 


7,SKLDE 


YES-ERROR-PRINT THIS RECORD 


A2713740 




TM 


0LVALB,X T 01 f 


THIS RECORD IS INVALID 


A271375G 




BC 


1>SKLDE 


YES 


A271376G 




TM 


PRINSW,X*01 f 


IS f PRINT ALL CS 'OPTION 


A2713770 





BC 


8, SKLDG 


NO-BRANCH-NOT PRINT 


SKLDE 


BAL 


LINKE>FREDD 


OLD RECORD TO PRINT BUFFER 


SKLDF 


BAL 


LINKE,PREDA 


NEW RECORD TO PRINT BUFFER 




BAL 


LINKE,PRLINA 


PRINT 1 LISTE LINE 


SKLDG 


BAL 


LINKCRDOLD 


READ 1 OLD RECORD 




BC 


15,G(LINKB) 


(OLD DATA END (7F)2) 




BC 


15,G(LINKB) 


OLD FILE END (7F)1 




BC 


15>Q(LINKB) 


OLD CS END (OLD RECORD) 




TH 


S4SKRD,X f G2 f 


COPY AN OLD RECORD 




BCR 


1,LINKB 


YES-RETURN TO CALLER 




BC 


15,SKLDD 


NO-READ THE NEXT OLD RECORD 




EJECT 







CALLED BY 



BC 15,SKLBX 



**************************** 

* COPY OR DELETE ALL THE MODULES OF AN OLD FILE 
* 

* 

* ENTRY AT SKLDN 
* 

* 

* 

* ENTRY AT SKLDM 
* 

* 
* 

* * * 



COPY AN OLD FILE 

ALL THE RECORDS ARE WRITTEN ON UPDTNEW , UNTIL 
A TAPE MARK IS FOUND . 
WHEN A TAPE HARK IS READ > BRANCH TO CSTGC5 
(END OF FILE TREATMENT) . 

DELETE AN OLD FILE 

- ALL THE OLD RECORDS ARE READ UP TO A TAPE MARK • 

- BRANCH TO C5TGC6 (END OF FILE TREATMENT) . 

NO OLD RECORD IS PRINTED DURING THIS ROUTINE . 

******************************** 



******** 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



SKLDH 


NI 
BC 


SN5KF,X*GQ* 
15, SKLDP 


DELETING REQUESTED 


SKLDN 


01 


SW5KF,XW 


COPY REQUESTED 


SKLDO 


HVC 


NMZGNE(BQ),OLZONE 


WRITE THE READ OLD RECORD 




BAL 


LINKF,OWRITE 


*0N UPDTNEW 


SKLDP 


BAL 


LINKCRDOLD 


READ AN OLD RECORD 




BC 


15, SKLDR 


(OLD DATA END (7F)2) 




BC 


15, SKLDR 


OLD FILE B^D (7F)1 




BC 


15, SKLDQ 
SWSKF,X'QV 


OLD CS END (OLD RECORD) 


SKLDQ 


TH 


DELETING REQUESTED 




BC 


8, SKLDP 


YES-DELETE NEXT RECORD 




BC 


15, SKLDO 


NO-COPY NEXT RECORD 


SKLDR 


TM 


SW5KF,X'Q4 f 
8,CSTGC6 


DELETING REQUESTED 




BC 


YES-TO END OF FILE TREATMNT 




BC 


15,CSTGC5 


NO- TO END OF FILE TREATMNT 




EJECT 







********************** 



******* 



BREACK UP OF AN 
LA WORK, IDT 
LA WORKA,CS 
LA WORKS ,NUH 
LA WORKCCSL 

BAL LINKD,RSCAN 



IDENTIFICATION FIELD - CALLED BY 
IDT, 8 BYTES , THE IDENTIFICATION FIELD 
CS ,8 BYTES , MODULE IDENTIFICATION PART 
NUM>8 BYTES , NUMERICAL PART OF IDT 
CSL,1 BYTE , LENGTH OF MODULE IDENT.PART 



* * * * * 

* 
* 

( INPUT)* 
(OUTPUT)* 
(OUTPUT)* 
(OUTPUT)* 
* 
* 



A2713780 
A2713790 
A271380D 
A271381Q 
A2713820 
A2713830 
A2713840 
A2713850 
A2713360 
A2713870 
A2713830 
A271389D 
A2713900 
A271391G 
A2713920 
A2713930 
A27I3940 
A2713950 
A2713960 
A2713970 
A2713980 
A2713990 
A27I4G00 
A2714G1Q 
A2714020 
A2713Q30 
A2714G4Q 
A2714G50 
A271406G 
A2714070 
A2714080 
A2714090 
A271410G 
A271411G 
A271412G 
A271413G 
A271414G 
A2714150 
A2714160 
A271417G 
A271S18G 
A2714190 
A27142GG 
A271421Q 
A271A22G 
A2714230 
A2713240 
A271425Q 
A271426D 
A27I427G 
A2714280 
A2713290 
A2714300 
A271431G 
A271432D 



* 



FOR EXAMPLE *IDT=ABC12345* GIVES* CS=ABC * (5 BLANKS) 

*NUH= 00012345* 
*CSL=3* 

*IDT=LMNB1234* GIVES* CS=LMNB * (4 BLANKS) 
*NUM=GQQ01234* 
*CSL=4* 



-THE LENGTH OF THE MODULE IDENTIFICATION 

IS 3 IF THE 4TH LEFT BYTE OF IDT IS NUMERICAL 
OTHERWISE IT IS 4 . 



OR BLANK 



THE LEFT FART OF T NUM f IS COMPLETED BY 
RIGHT BYTE OF IDT IS NUMERICAL • 
FOR EXAMPLE *IDT=LMNB 1* GIVES* CS=LMNB 



ZEROS IF THE LAST 
* (4 BLANKS) 









*NUM: 


=00000001* * 








*CSD 














# # ¥r # 


* * * * 




# * x * 




RSCAN 


MVC 


0(8>aORKA),BLANK 




BLANKS TO 'CS f 




MVC 


0(8 >k*ORKS)> BLANK 




BLANKS TO *NUM f 




TM 


3(UORK)>XT0 f 




BRANCH 




BC 


14 > RSCANP 




* TO RSCANU 




ai 


3(k^RK),X f F9 f 




* IF BYTE IDT+3 IS NUMERIC. 




BC 


12, RSCANU 




* OR BLANK 




BC 


15>RSCANA 






RSCANP 


CLI 


3(WQRK),X'4Q f 




* TO rscana 




BC 


6, RSCANU 




* IN OTHER CASE 


RSCANA 


HVI 


G(NORKC),XW 




CS LENGTH = 4 




MVC 


0(4,WGRKA)>0(WORK) 




STORE CS (4 LEFT BYTES) 




HVC 


4(4>M0RKB),4(NORK) 




STORE NUM (4 RIGHT BYTES) 




BC 


15, RSCANK 






RSCANU 


HVI 


0(RORKC),X f 03 f 




CS LENGTH s 3 




MVC 


QC3>140RKA)>G(140RK) 




STORE CS (3 LEFT BYTES) 




MVC 


3(5,KORKB),3(k r ORK) 




STORE NUM (5 RIGHT BYTES) 


* STORE ZEROS IN LEFT PART OF HUM IF LAST RIGHT BYTE IS NUMERICAL 


RSCANK 


TH 


7(UORKB),X f F0 v 




LAST BYTE IN NUM IS NUMER. 




BCR 


14,LINKD 








CLI 


7(kQRK8)>X T F9 f 








BCR 


2,LINKD 




NO- RETURN TO CALLER 


RSCANN 


CLI 


0CUORKB),X v 40 f 




BYTE NUM*N(N=0 TO 6)= BLANK 




BCR 


7,L3KKD 




NO-RETURN TO CALLING 


RSCATfi 


MVC 


Q(l>KORKB),ZEROF 




ZERO TO BYTE NUM*N 




LA 


WORKB,HI40RKB) 




NEXT ADDR.OF NUM+N BYTE 




BC 


15, RSCANN 








EJECT 









* * x * 

* f UPDTCORR-CARD f READING ROUTINE - CALLED 

* RETURN TO 
DATA END- ALL THE CARDS HAVE BEEN READ 
FILE END- IS A / UPDATE CARD 



* O(LINKC)- 

* 4CLINKO- 

* 8CLINKO- 



*************** 

BY BAL LINKCRDCRD * 

x 
x 
x 



CS END- IS AN RIS CARD (CS IDENTIFICATION OTHER THAN * 
THE PRECEDING ONE) * 



A2714330 
A2714340 
A2714350 
A2714360 
A2714370 
A2714380 
A2714390 
A2714400 
A2714410 
A2714420 
A2714430 
A271444Q 
A2714450 
A2714460 
A2714470 
A2714480 
A271449D 
A271450Q 
A2714510 
A2714520 
A2714530 
A2714540 
A2714550 
A2714560 
A2714570 
A27I4583 
A2714590 
A2714600 
A2714610 
A2714620 
A2714630 
A2714640 
A2714650 
A2714G60 
A2714S70 
A2714680 
A2714690 
A2714700 
A2714710 
A2714720 
A2714730 
A2714740 
A27I4750 
A2714760 
A2714770 
A2714780 
A2714790 
A27I4800 
A2714810 
A27I4320 
A2714830 
A2714840 
A2714850 
A2714560 
A2714870 



* 12(LINKC)-N0T CS END- IS AN RIS CARD (SAME C5 IDENTIFICATION AS IN * A2714880 

* PRECEDING RIS CARD) * A271A89Q 

* 16(LINKC)-MODIF.CARD- IS A MODIFICATION CARD * A2714900 

* * A271491G 

* PROCESSING- * A2714920 

* -THE READ CARD IS SAVED IN 'PRECEDING CARD AREA* (ONE AREA FOR * A2714930 

* EACH / UPDATE >RIS OR HODIFICATION CARD TYPE) „ * A2714940 

* * A271495Q 

* -THE NEXT CARD IS READ . * A2714960 

* * A271497Q 

* -1ST CASE (DATA END). * A27I49O0 

* -SET THE CORRESPONDING SNITCHES ONE • * A2714990 

* * A2715000 

* -2ND CASE (FILE END). * A2715010 

* -SET THE CORRESPONDING SWITCHES ONE . * A2715020 

* -EXECUTE THE 'R5CAN' ROUTINE TO BREACK UP THE IDENTIFICATION* A2715030 

* PUNCHED IN THE READ / UPDATE CARD . * A2715040 

* * A2715050 

* -3RD CASE ( CS END) (RIS CARD) * A2715060 

* -4TH CASE (NOT CS END) (RIS CARD) * A2715070 

* -EXECUTE THE *RSCAN* ROUTINE TO BREACK UP THE 2 IDENTIFICA- * A27150O0 

* TIONS,THE INITIAL NUMBER FIELD AND THE NUMBERING STEP . * A271509D 

* -CONVERT TO BINARY THE NUMERICAL PARTS OF THESE FIELDS (OR * A2715100 

* REPLACE EACH BLANK FIELD WITH ZEROS) . * A271511Q 

* -TEST THE PARAMETERS OF THE READ RIS CARD AND SET THE * A271512Q 

* INVALIDITY SWITCH ON IF ANY ERROR IS DETECTED . * A271513G 

* -ASSIGN 10 (MODULE PROCESSING MODE), OR 1( RECORD PROCESSING* A2715140 

* MODE) TO THE BLANK FIELDS * INITIAL NUMBER* AND 'STEP*.* A2715150 

* -STORE THE 'DUPLICATION* CODE * A2715160 

* OF THE PRECEDING RIS CARD IN THE READ * A2715170 

* RIS CARD IF THIS CARD REQUESTS 'RECORD PROCESSING' * A27I5180 

* IN THE SAME MODULE AS THAT CONCERNED BY THE PRECEDING * A2715190 

* RIS CARD . * A2715200 

* * A2715210 

* -5TH CASE (MODIFICATION CARD) * A2715220 

* -EXECUTE THE 'RSCAN* ROUTINE TO BREACK UP THE IDENTIFICATION* A271523Q 

* -CONVERT TO BINARY THE NUMERICAL PART OF THIS FIELD (OR * A271524Q 

* REPLACE IT BY ZERO IF IT IS BLANK) . * A2715250 

* -SET THE INVALIDITY SWITCH IF ANY ERROR IS DETECTED IN THIS * A2715260 

* FIELD . * A2715270 

* * A2715280 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2715290 

EJECT A2715300 

RDCRD CLC RLCOD(4),RISCOD RIS CARD IN BUFFER A2715310 

BC 8,RDCRDA YES A2715320 

CLC GLCOD(9),SLASH / UPDATE CARD IN BUFFER A2715330 



CLC RISSUF(1),TPMARK IS CARD DATA END A2715420 



BC 6,RDCRDF 
CLC GLC0D(9),SLASH 
BC 8>RBCRD3 
CLC RLCGD(4)>RISC0D 
BC 8>RDCRBG 
HODIF CARD IS READ 



HI 
LA 
LA 
LA 
LA 
BAL 
LA 
LA 
BAL 
BC 
ST 
CLC 
BC 
CLC 
BC 

RDCRDC 01 
RDCRDD L 

LA 

ST 

BC 

* / UPDATE CARD 



RDCRDB 



01 

01 

HVI 

LA 

LA 

LA 

LA 

BAL 

BC 



MLVALD,X*FE f 
NORK>MLIDT 
NORKA >HLC5D 
I40RKB,HLHUH 
NORKC>MLCSL 
LINKD,RSCAN 
POINTR >MLNUH 
CONTR>NUM(0,0) 
LINKE>BEXBA 
15>RDCRDC 
CONTR>MLBIN 
MLBIN(4)>MPBIM 
2>RDCRDD 
MLNBRC4),ZER0 
8, RDCRDD 
MLVALD>X T Ql f 
HORKA>MLNBR 
I40RKA,1(N0RKA) 
WORKA,MLNBR 
15»16(LINKC) 

IS READ (CARD FILE END) 
SHFCE,X T 02 f 
SyCSCE>K*02 f 
GLFILE>X*E2 f 
UORK,GLIDT 
MORKA,GLCSD 
WORKB.KKAREA 
KORKCGLCSL 
LINKD>RSCAN 
15,<KLINKC) 



YES 

IS CARD FILE END 
YES 

IS RIS CARD 
YES 

IS VALID HODIF CARD 
FROM MLIDT, STORE 
*CS PART IN HLCSD 
*NUH PART IN MLNUH 
*CS LENGTH IN HLCSL 

CONVERT TO BINARY THE NUMB. 

* ER OF HODIF CARD- ZEROS 
*IF NUMBER IS BLANK 

IS NOT NUMERICAL 
STORE BINARY NUMBER 
IS INCREASING NUMBER 
YES-BRANCH 

IS 1ST MOD IF AFTER RIS CARD 
YES 

IS INVALID MOD IF NUMBER 

UP TO DATE THE MODIFS CARDS 

*COUNT 

HODIF CARD -CALLINGS 

CARD FILE END 
CARD CS END 
* ALWAYS SYMBOLIC FILE OPTION 
STORE CS PART OF GLIDT 

* IN GLCSD 

* AND HIS LENGTH IN GLCSL 



* TAPE MARK (7F)IS READ (DATA FILE END) 
RDCRDF 01 SMDCE>X'G2 f 

01 Sl4FCE>X r 02 f 

01 5HCSCE>X f Q2' 

BCR 15,LINKC 

* RIS CARD IS READ ( CS END OR NOT) 
RDCRDG NI RLVALD,X*FE f 

LA K0RK>RLIDT1 

LA N0RKA>RLCSD1 

LA W0RKB,RLNUMI 

LA k*ORKC>RLCSlL 

BAL LINKB,RSCAN 

LA K0RK,RLIDT2 

LA H0RKA,RLCSD2 

LA W0RKB,RLNUM2 

LA N0RKCRLCS2L 

BAL LINKD,RSCAN 

LA NORK>RLNUM 

LA WORKA.RLCSDI 



CARD FILE EMD-CALLING+4 

CARD DATA END 
CARD FILE END 
CARD CS END 
CARD DATA END-CALLING+Q 

IS VALID RIS 
FROM RLIDT1, STORE 
*CS PART IN RLCSD1 
*NUM PART IN RLNUM1 
*CS LENGTH IN RLCS1L 

FROM RLIDT2, STORE 
*CS PART IN RLCSD2 
*NUH PART IN RLNUM2 
*CS LENGTH IN RLCSIL 

FROM RLNUM( INITIAL NUMB)ST. 
*CS PART IN RLCSDI 



A2715430 
A2715440 
A2715450 
A271546Q 
A2715470 
A271548Q 
A271549Q 
A2715500 
A2715510 
A2715520 
A2715530 
A271554Q 
A2715550 
A2715560 
A27I5570 
A2715580 
A27I5590 
A2715600 
A2715610 
A2715620 
A2715630 
A2715640 
A2715650 
A2715660 
A2715670 
A2715&S0 
A2715&90 
A2715700 
A2715710 
A2715720 
A271573D 
A2715740 
A2715750 
A2715760 
A2715770 
A27I5760 
A2715790 
A2715800 
A2715S10 
A2715820 
A2715830 
A2715840 
A2715850 
A2715860 
A2715870 
A2715880 
A2715890 
A27I5900 
A2715910 
A27I5920 
A2715930 
A2715940 
A271595Q 
A27159G0 
A2715970 



RDCRDH 
RDCRDI 



ROCRDJ 
RDCRDK 



RDCRDN 



RBCRDP 
RDCRDQ 



RDCRDR 
RDCRD5 



RDCRDK 



LA 


140RKB,RLNUMI 


*NUM PART IN RLNUHI 


A271598G 


LA 


WORKCRLCSNL 


* CS LENGTH 


A271599G 


BAL 


LINKD>RSCAN 


* IN RLCSNL 


A2716000 


LA 


N0RK,RL5TPZ 


FROM RLSTPZC5TEP), STORE 


A271&G1G 


LA 


WORKA>UKAREA 


* 


A271682Q 


LA 


NORKB>RLSTP 


*NUM PART IN RLSTP 


A271&G3G 


LA 


l&RKCRLCSSL 


* CS LENGTH 


A2716040 


BAL 


LINKD,RSCAN 


* IN RLCSSL 


A2716G5G 


LA 


P0INTR,RLNUM1 


CONVERT TO BINARY NUH1 OF 


A2716G60 


LA 


CONTR>NUM(0>G) 


*RIS CARD- (ZERO IF NUMBER 


A271607G 


BAL 


LINKE,HEXBA 


*IS BLANK) 


A271608G 


BC 


15 > RDCRDH 


IS NOT NUMERICAL 


A2716G9G 


BC 


15, RDCRDI 


IS NUMERICAL 


A271610Q 


01 


RLVALD,X T 01 f 


INVALID RIS 


A271611G 


ST 


C0NTR,RLBIN1 


STORE BINARY NUMBER 1 


A271612G 


LA 


PGINTR,RLNUM2 


CONVERT TO BINARY NUM2 OF 


A271613G 


LA 


CONTR>NUM(O,0) 


*RIS CARD-(ZERO IF NUMBER 


A271614G 


BAL 


LINKE,HEXBA 


*IS BLANK) 


A271615D 


BC 


15,RBCRDJ 


IS NOT NUMERICAL 


A2716160 


BC 


15, RDCRDK 


IS NUMERICAL 


A2716170 


01 


RLVALD,X f Ql f 


INVALID RIS 


A271G18G 


ST 


C0NTR,RLBIN2 


STORE BINARY NUMBER2 


A271619G 


CLI 


RLK0D,X f C3 T 


CORRECTION MODE IS PER CS 


A271620G 


BC 


8, RDCRDN 


YES-BRANCH 


A271G210 


TH 


FILESI4»K f D2* 


IS SYMBOLIC FILE OPTION 


A271622G 


BC 


1, RDCRDN 


YES-BRANCH 


A271623G 


01 


RLVALD,X f Gl f 


INVALID RIS CARD 


A2716240 


LA 


POINTR,RLSTP 


CONVERT TO BINARY' STEP f OF 


A2716250 


LA 


CONTR,NUM(G,0) 
LINKE,HEXBA 


*RIS CARD (ZERO IF STEP IS 


A271626Q 


BAL 


*BLANK) 


A271627G 


BC 


15,RDCRDP 


IS NOT NUMERICAL 


A2716280 


BC 


15, RDCRDQ 


IS NUMERICAL (OR BLANK) 


A2716290 


01 


RLVALD,X f Qi f 


INVALID RIS 


A2716300 


ST 


CON TR,RL STEP 


STORE BINARY STEP 


A271631G 


LA 


POINTR,RLNUMI 


CONVERT TO BINARY THE 


A271632G 


LA 


CONTR,NUM(Q,Q) 


* INITIAL NUMBER (ZERO IF IT 


A271633G 


BAL 


LIKKE,HEXBA 


*I5 BLANK) 


A271&34Q 


BC 


15, RDCRDR 


IS NOT NUMERICAL 


A271635G 


BC 


15,RDCRDS 


IS NUMERICAL (OR BLANK) 


A271636G 


01 


RLVALD,X f Gl f 


INVALID RIS 


A2716370 


ST 


CONTR,RLBINI 


STORE BINARY INITIAL NUMBER 


A271G33G 


SR 


140RK,N0RK 
N0RK>RLCS1L 


C51 LENGTH TO NORK 


A271639G 


IC 




A27164GG 


SR 


KORKA>WORKA 


CS2 LENGTH TO KORKA 


A271641G 


IC 


140RKA>RLCS2L 




A271642G 


CLI 


RLCNT>X*C9 f 

7,RDCRDX 


INSERT REQUEST 


A2716430 


BC 


NO 


A271<^G 


CH 


H0RK,KB8 


CS1 LENGTH-8 


A2716450 


BC 


8,RBCRDV 


YES-ERROR 


A271646G 


BC 


15,RDCRDY 


YES-CORRECT 


A271G47G 


CLI 


RLH0D>X f C3 f 


CORRECTION MODE PER CS 


A271648G 


BC 


8,RDCRDT 


YES 


A2716490 


CLC 


RLCSD1(CS),RLCSD2 


CS1 EQUAL CS2 


A27165G0 


BC 


7>RDCRDV 


NO -ERROR 


A271651G 


CLC 


RLBIN1(4),RLBIN2 


BIN1 GREATER THAN BIN2 


A271G520 





BC 


Z>RDCRDV 


YES-ERROR 


A271653G 




CH 


H0RKA,KB8 


CS2 LENGTH = 8 


A2716540 




BC 


8, RDCRDV 


YES-ERROR 


A2716550 




LTR 


WORKA >NORKA 


CS2 LENGTH = 0 


A271656G 




BC 


8>RDCRDV 


YES-ERROR 


A271657D 


RDCRDT 


CH 


W0RK>KB8 


CS1 LENGTH = 8 


A2716580 




BC 


6 > RDCRDV 


YES-ERROR 


A271&590 




LTR 


UORK>E<iORK 


C51 LENGTH = 0 


A27166GQ 




BC 


8, RDCRDV 


YES-ERROR 


A2716610 




CLI 


RLCNT,X f E2 f 


DELETING REQUESTED 


A2716620 




BC 


8 > RDCRDO 


YES 


A271663G 


RDCRDY 


CLC 


RL5TEP(4)>ZERO 


THE BINARY STEP IS NULL 


A2716640 




BC 


7, RDCRDU 


MO- 


A2716650 




XC 


RLSTEP(4)>RL5TEP 


REPLACE ZERO > IN BINARY STEP A2716&6G 




HVI 


RLSTEP+3>XW 


* BY 10 


A271667G 




CLI 


RLM0D>X f C3 f 


* (HODE PER CS) 


A271668G 




BC 


6, RDCRDU 


* BY 1 


A2716G90 




HVI 


RLSTEP*3>X f 01 f 


*(KODE PER RECORD) 


A2716700 


RDCRDU 


CLC 


RLCSNLQ),KB8*1 


CS PART LENGTH OF NEW CS : 


-8 A2716710 




BC 


8>RDCRDV 


YES -ERROR 


A271672G 




CLC 


RLNUH I ( NUH ) > BLANK 


IF INITIAL NUHBER IS BLANK A2716730 




BC 


7 > RDCRDZ 


^REPLACE 0 IN THIS BIN.VAL A27167SQ 




XC 


RLBINI(4),RLBINI 


* BY ID 


A2716750 




HVI 


RLBINI+3>X*GA f 


*<HODE PER CS) 


A271676G 




CLI 


RLM0D>X f C3 f 


* BY 1 


A2716770 




BC 


8, RDCRDZ 


*(KODE PER RECORD) 


A271678Q 




HVI 


RLBINI+3,X f 01 v 


* 


A2716790 


RDCRDZ 


CLI 


RLCNT»X f C9 f 


INSERT REQUEST 


A2716800 




BC 


8>RDCRDH 


YES 


A2716810 




CLI 


RLCNT,X f D5 f 


NUMBERING REQUEST 


A271G820 




BC 


8>RDCRDW 


YES 


A271G830 




CLI 


RLCNT»X*D9 f 


SUPPRESS REQUEST 


A2716840 




BC 


8>RDCRDH 


YES 


A27 16050 


RDCRDV 


01 


RLVALD>X T Gl f 


IS INVALID RIS CARD 


A2716B6G 


RDCRBN 


XC 


HLNBRC$)>HLNBR 


miUl THE HOD. COUNT BY SET A2716870 




XC 


HPBINC4)>HPBIN 


ANNUL THE PRECDT.HODIF NUMB A2716880 




CLC 


RLCSD1(CS),RPCSD1 


READ CS f PRECEDING CS 


A2716890 




BC 


7> RDCRDO 


NO-BRANCH 


A27169Q0 




CLI 


RLK0D>X f C3 f 


CORRECTION HODE PER CS 


A2716910 




BC 


8,12(LINKC) 
RLDUPL(1)>RPDUPL 


YES-NOT CS END-CALLER+12 


A271&920 




HVC 


SAVE DUPLICATING CODE 


A271693G 




BC 


15»12(LINKC) 


NOT CS END(RIS)-CALLER*12 


A2716940 


RDCRDO 


01 


5MCSCE>X f 02 f 


CARD CS END 


A2716950 




BC 


15,8(LINKC) 


CARD CS END ( RIS ) . CALLER *8 


A2716960 




EJECT 




A271697G 


* * * * 


* * * 


* * * * * * # * * * * * 




* A271698G 










* A27I&990 


* OLD RECORD READING ROUTINE - CALLED 


BY BAL L3KKCRD0LD 


* A2717000 










* A2717010 


* RETURH 


TO 




* A2717020 










* A2717Q30 


* 0(LMCO- 


DATA END-IS THE LAST TAPE HARK OF UPDTOLD 


* A2717040 


* 4CLINKC)- 


FILE END-IS A TAPE HARK AT THE END OF A FILE 


* A2717050 


* B(LINKC)- 


CS END-IS A RECORD (CS 


IDENT. OTHER THAN THE PRECEDING) 


* A2717060 


* 12(LINKC)-N0T C5 END-IS A RECORD (SAHE C5 IDENTIFIC.AS IN PRECEDING) 


* A271707Q 



* 






* 


A2717G80 


* PROCESSING 




* 


A271709Q 


* 


SAVE THE READ OLD RECORD IN 'PRECEDING RECORD * AREA • * 


A27171G0 


* 






* 


A2717110 


* 


READ 


THE NEXT RECORD . 


* 


A2717120 


* 






* 


A2717I30 


* 


1ST CASE (DATA END) 


* 


A271714G 




2ND CASE (FILE END) 


* 


A2717150 


* 


- SET APPROPRIATE SNITCHES ON 




A2717160 


* 






* 


A2717170 




3RD CASE (CS END) 


* 


A2717180 




4TH CASE (NOT CS END) 


* 


A271719G 




-EXECUTE THE "RSCAN* ROUTINE 


TO BREACK UP THE IDENTIFICATION* 


A271720D 




- CONVERT TO BINARY ITS NUMERICAL PART • * 


A2717210 


* 


- SET THE INVALIDITY SNITCH IF ANY ERROR IS DETECTED . * 


A271722G 


* 






* 


A2717230 


* * * * 


* * * 


************* 


**************** 


A2717240 


RDOLD 


TH 


S40LD,X T 01 T 


MAS DATA OR FILE END 


A2717250 




BC 


1>RD0LDB 


YES 


A271726G 




BAL 


LINKE>PRCOLD 


READ OLD RECORD TO PRECED. 


A271727D 


RDOLDB 


BAL 


LINKFjIRECD 


OLD RECORD READING OFERAT. 


A2717280 




01 


SNCS01>X f G4 f 


1ST OLD REC. TREATED IN CS 


A2717290 




01 


5NF01>XW 


1ST OLD REC. TREATED IN FILE 


A2717300 




NI 


OLVALD,X'00 f 


VALID NUMBER IN READ RECORD 


A2717310 




TH 


SR0LD»X f Q3 f 


NEITHER DATA NOR FILE END 


A271732G 




BC 


8, RDOLDD 


* BRANCH 


A2717330 




01 


SUFOE,X'Ql f 


OLD FILE END 


A2717340 




01 


SNCSOE,X f 01 f 


OLD CS END 


A2717350 




KC 


0LIDT(8),0LIDT 


0 TO ID ZONE OF READ RECORD 


A2717360 




HVC 


OLCSD(CS)> SLASH 




A2717370 




TH 


SH0LD,X*G2 f 


IS OLD DATA END 


A2717380 




BC 


1, RDOLDA 


YES 


A2717390 




BC 


15>4CLINKC) 


OLD FILE END(7F)1-CALLER*4 


A271740D 


RDOLDA 


01 


S4DOE,X f 01 T 


OLD DATA END (7F)2 


A2717410 




BCR 


15,LINKC 


TO CALLER 


A271742G 


RDOLDD 


LA 


NORK>OLIDT 


FROM OLIDT, STORE 


A2717430 




LA 


HORKA,OLCSD 


*CS PART IN OLCSD 


A2717440 




LA 


NORKB>OLNUM 


*NUH PART IN OLNUH 


A2717450 




LA 


NORKCOLCSL 


*CS LENGTH IN OLCSL 


A2717460 




BAL 


LINKO»RSCAN 


* 


A2717470 




SR 


CONTR>CONTR 




A27I748G 




CLI 


OLCSL>X f 00 f 


CS LENGTH IS NULL 


A27I7490 




BC 


B,RDOLDE 


YES-ERROR 


A2717500 




CLC 


0LCSL(1),KB8*1 


CS LENGTH = 8 


A2717510 




BC 


8>RD0LDE 


YES-ERROR 


A271752G 




LA 


POINTR»OLNUM 


CONVERT TO BINARY -NUMBER OF 


A271753D 




LA 


CONTR>NUH(0>G) 


*OLD RECORD 


A271754Q 




BAL 


LINKE,HEXBB 


* 


A2717550 




BC 


15,RD0LDE 


IS NOT NUMERICAL 


A2717560 




ST 


CONTR >0LBIN 


STORE BINARY NUMBER 


A2717570 




CLC 


OLCSD(CS),OPCSD 


READ CS t PRECEDING CS 


A2717550 




BC 


7>RD0LDH 


NO-BRANCH 


A2717590 




CLC 


0LBIN(4)>0PBIN 


INCREASING OLD NUMBER IN CS 


A2717600 




BC 


2,12(LINKC) 


YES-NOT CS END CALLER+12 


A2717610 


RDOLDF 


01 


OLVALD»X f 01 f 


IS INVALID NUMBER 


A271762D 



CLC OLCSB(CS),OPCSD SAME CS IN READ RECORD AS A271763Q 

BC 8,12(LINKC) *IN PRECEDING A2717G4Q 

RDOLDH 01 SWCSOE,X f Gl f OLD CS END A271765G 

BC 15>8(LINKC) TO CALLERS A2717660 

RDOLDE ST CONTR,OLBIN STORE ZERO TO BINARY NUMBER A2717670 

HVC OLNUM(NUM),ZEROF A2717680 

BC 15»RD0LDF TERROR A2717690 

EJECT A2717700 

**#***********************#********* A2717710 

* * A2717720 

* NEK RECORD EDITING ROUTINE - CALLED BY BAL LINKCENRXX * A2717730 

* * A2717740 

* ENTRY AT ENRMA - NEW RECORD CREATED BY A MODIFICATION CARD TO BE * A2717750 

* INSERTED (REPLACEMENT OR INSERTION) . * A2717760 

* ENTRY AT ENROA - NEW RECORD CREATED BY AN OLD RECORD TO BE COPIED * A2717770 

* ENTRY AT ENR01 - NEW RECORD CREATED BY THE 1ST OLD RECORD OF A SET* A2717780 

* TO BE NUMBERED . * A2717790 

* ENTRY AT ENRON - NEW RECORD CREATED BY ANY OLD RECORD OF A SET * A2717800 

* TO BE NUMBERED . * A2717810 

* * A27I7820 

* RETURN TO CALLER BY BCR 15,LINKC . * A2717830 

* * A2717840 

* PROCESSING * A2717850 

* 1- DETERMINING THE BINARY NEW NUMBER TO BE WRITTEN * A2717860 

* *«we*****#*9f>*#**********#*5eBf**^ * A2717870 

* * *IS THE *IS THE * THE NEW NUMBER*THIS NUMBER* THE NEW NUMBER* * A2717880 

* * *15T NEH*1ST NEW* SHOULD * IS GREATER* WILL BE * * A2717890 

* * *RECORD *RECORD * BE * THAN THE * * * A2717900 

* * *0F THE *ISSUED * *NUMBER OF * * * A2717910 

* * *HODULE * BY A * * THE * * * A2717920 

* * * *CORREC-* * PRECEDING * * * A2717930 

* * * *TION * *NEW RECORD * * * A2717940 

3f 9$ $t 3$ $t $t % % & A27179G0 

* *ENRHA* YES * (YES) * * *INITIAL NUMBER * * A2717970 

* * * NO * YES * INITIAL NUMBER* YES * RIS CARD * * A2717990 
***** * * ** A2718000 

* * * * * FROM RIS CARD ***************************** * A2718010 
*** * * * NO * PRECEDING * * A2718020 
***** * *NEW NUMBER * 1 * * A2718D30 

* * * **************************************^*****^^^****** * A2718G40 

* * * * NO * * *1ST MULTIPLE OF* * A2713050 

* **************»***»***********x****x*****9**********5TEP GREATER * * A2718G6G 

* *ENRON* (NO) * (NO) * * *THAN THE PRECE-* * A2718070 
***** * *DING NEW NUMBER* * A2718C80 

* **^*^^*»***^^*^^***^******************«**********^***^*»****^* * A2718090 

* *ENR01* YES * (YES) * * * INITIAL NUMBER * * A2718100 

* * ***^*********^******^****«******************* FROM * * A2718110 

* * * NO * (YES) * INITIAL NUMBER* YES * RIS CARD * * A2718120 

* * * * * FROM RIS CARD ***************************** * A2718130 
*** * * * NO * PRECEDING * * A271814G 
***** * *NEW NUMBER U** A2718150 

* *******************9f***********************5f*******»**9(****«****»** * A2718160 

* *ENROA* YES * * * * NUMBER * * A2718170 



* ********************************************* FROM * 

* * HO * *NUMBER FROM * YES * OLD RECORD * 

* * * * OLD RECORD ***************************** 

* * * * * NO * PRECEDING * 

* * * * * *NEW NUMBER 
******************************************************************* 



********************* 
EJECT 

************ CONTINUED * * * 



************* 



************* 



* 

* 

*-Z- ENRHOD- CONFUTE THE MAXIMUM VALUE OF A NEW NUMBER . 
* 

*-3- ENRMOJ- CHECK POSSIBLE OVERFLOW ON THE PROPOSED NEW NUHBER 

* ******************************************************************* 

* IF THE PROPOSED NEW * IF THE NUMBER OF * THEN THE FINAL * 

* NUHBER IS * THE PRECEDING NEW * VALUE OF THE HEM * 

* * RECORD +1 IS * NUHBER MILL BE * 
******************************************************************* 

* LESS THAN THE * * THAT OF THE PROPOSED* 

* MAXIMUM VALUE * * 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

*-4 

* 

* 

* 

* 

* 

* 



NEW NUHBER 



* EQUAL TO THE * * 

* MAXIMUM VALUE * * 
********************************************* 



THAT OF THE 
PRECEDING NEW 
RECORD * 1 



* GREATER THAN THE 

* MAXIMUM VALUE 
* 
* 
* 

AT ,V,y v wwvtfyv.w.wvvv 



* NOT GREATER THAN * 

* THE MAXIMUM VALUE * 
********************************************* 

* GREATER THAN * SET TO ONE * 

* THE MAXIMUM VALUE * (OVERFLOW) * 



ENRHOM - MOVE TO THE NEW RECORD BUFFER ft 
-THE TEXT (COL 1 THROUGH 72) FROM THE MODIFICATION CARD OR 

FROM THE OLD RECORD, 
-THE MODULE IDENTIFICATION FROM THE MODIFICATION CARD OR FROM 
THE OLD RECORD OR FROM THE RIS CARD (IF THIS RIS CARD 
REQUESTS NUMBERING WITH CHANGE IN AN IDENTIFICATION) • 



* * * * 


* * * 


************ 


***************** 


ENRMA 


01 


SNENR,X'01 f 


FROM MODIF CARD 




MVC 


NUBB!W4),M4BIN 


SAVE PRECD. BINARY NEW NUMB* 




CLC 


MLCSD(CS)>NWCSD 


1ST NEW RECORD 




BC 


7.ENRHE 


YES 




CLC 


MLNBR(4),K1 


1ST MODIF CARD AFTER RIS 




BC 


8, ENRMB 


YES-BRANCH 




L 


WORKCRPSTEP 


LOAD STEP FROM PRECEDT.RIS 




BC 


15*ENRM0B 


TO NUMBERING (STEP USED) 


ENRMB 


CLC 


RPBINI(4),^BIN 


INITIAL NUMBER IS CORRECT 




BC 


2>ENRMD 


YES-BRANCH 


ENRMB1 


MVC 


ERTBG+12( COD ) >MSGTBN 


NO-SET ERROR CODE TO ERTBG 




MVC 


ERC0D*12(C0D)>MSGTBN 


*AND TO PRINT BUFFER 




L 


W0RKCNI4BIN 


NEW NUMBER ft PRECEDING+1 




LA 


WORKCKKORKC) 


* 




ST 


W0RKC>M4BIN 


* 



A2718180 
A2718190 
A27182Q0 
A2718210 
A271S220 
A271823D 
A2718240 
A2718250 
A2716260 
A2718270 
A2718280 
A2718290 
A2718300 
A2718310 
A271S320 
A2718330 
A2718340 
A2718350 
A271836Q 
A2718370 
A2718380 
A2718390 
A2718400 
A271841Q 
A271832Q 
A2718430 
A2718449 
A2718^50 
A2718^60 
A2718470 
A2718480 
A2718A90 
A27I8500 
A271851Q 
A2718520 
A2718530 
A271S540 
A2718550 
A271S560 
A2718570 
A2718580 
A271859Q 
A2718600 
A2718610 
A271862Q 
A2718630 
A271864Q 
A2718650 
A2718660 
A2718670 
A2718680 
A2718G90 
A2718700 
A2718710 
A271872Q 





BC 


15,ENRMOD 




AZ718730 


EKRME 


HVC 


r&BINH(4)>ZERO 


0 TO PRECEDING BIN .HEM NUHB 


A271874G 


ENRMD 


HVC 


NNBIN(4)»RPBINI 


MET. NUMB. FROM PRCDIKG RI5 


A2718750 




BC 


15,ENRHOD 


^BECOMES NEW NUMBER-BRANCH 


A271876G 


ENRON 


HI 


SWENR,X v FE f 


FROH OLD RECORD 


A2718770 




hvc 


hmN*4(4),NWBIN 


SAVE PRECED .BINARY NEW NUMB 


A2718780 




i 


WORKCRLSTEP 


LOAD STEP FROH READ RIS 


A2718790 




BC 


15 »ENRMOB 


TO NUMBERING (STEP USED) 


A2718800 


ENROl 


HI 


SWENR>X f FE f 


FROH OLD RECORD 


A271B81G 




HVC 


NWBBIH(4)>NWBIN 


SAVE PRECD. BINARY NEW NUMB. 


A271862Q 




CLC 


OLCSD(C5),NWCSD 


1ST OLD RECORD IN NEW CS 


A271883D 




BC 


7>ENR03 


YES 


A2718340 




CLC 


RLBIHI(4),TOIN 


INITIAL NUMBER IS CORRECT 


A271B350 




BC 


2,ENR02 


YES-BRANCH 


A2718B60 




BC 


15>ENRHB1 


NO-ERROR 


A2718870 


ENR03 


HVC 


*i4BINW4),ZERO 


0 TO PRECD. BIN. NEW NUMBER 


A2718880 


ENR02 


HVC 


NWBIN(4),RLBINI 


INIT. NUMB. FROH READ RIS 


A2718898 




BC 


15, EKRHOD 




A2718900 


ENROA 


HI 


SWENR ? X'FE r 


FROH OLD RECORD 


A2718910 




HVC 


N^iN+4(4-),NHBIN 


SAVE PRECD. BIN. NEW NUMBER 


A2718920 




HI 


SWIBT»X f FE f 


OLD CS ID NOW CHANGED 


A2718930 




CLC 


OLCSD(CS),NWCSD 


1ST OLD RECORD IN NEW CS 


A2718940 




BC 


7, ENROD 


YES 


A2718950 




CLC 


0LBIN(4),NWBIN 


CORRECT OLD NUMBER TO BE 


A271S9&Q 




BC 


12>ENRHB1 


*COPIED-NO 


A2718970 




BC 


15, ENROB 




A2718980 


ENROD 


HVC 


ri4BIHH(4) > ZERO 


0 TO PRECD. BIN. NEH NUMBER 


A2718990 


ENROB 


HVC 


NW8IN(4)>0LBIM 


OLD NUMBER TO NEW NUMBER 


A2719000 




BC 


15 > EKRHOD 




A2719010 


ENRH08 


L 


W0RKB,M4BIN 


STORE THE PRECEDING BINARY 


A2719020 




L 


HORK,NWBIN 


*NEW NUMBER +1 


A271903D 




LA 


WORKB » KWORKB ) 


*TO THE BINARY NEW NUMBER 


A2719040 




ST 


WORKB, MJBIN 


*TO BE WRITTEN 


A27I9050 




SR 


WORKA,WORKA 


NEW BIN DIVIDED BY STEP 


A27190S0 




BR 


WORKA,WORKC 




A271907D 




L 


WORKB, NWBIN 


LOAD NEW BIN 


A2719D80 




LTR 


KORKA,WORKA 


THE NEW NUMBER IS A 


A2719090 




BC 


B,EKRMOF 
HORKB-»H0RKC 


MULTIPLE OF THE STEP 


A2719100 




AR 


NEW NUMBER * STEP 


A2719110 




SR 


WORKB >WORKA 


* - REMAINDER OF DIVISION 


A2719120 


ENRNGF 


ST 


WORKB ,NWBIN 


STORE THIS VALUE 


A2719130 


EKRHOD 


SR 


WORK, WORK 




A2719I30 




HVC 


HXNUH1(NUM),K999 


99999999 TO HIGH VALUE 


A2719150 




IC 


NORK»OLC5L 


CSID. LENGTH OF OLD RECORD 


A2719160 




TH 


SWIDT>X*G1* 


CHANGE CS ID REQUESTED 


A2719I70 




BC 


S,ENRKOE 


NO 


A2719180 




IC 


WORK,RPCSNL 


C SID. LENGTH FROH PRECED.RIS 


A2719I90 


B^RHOE 


TH 


SWENR,X f 01 f 


IS TREATMENT BY OLD RECORD 


A2719200 




BC 


8 > ENRHOH 


YES 


A2719210 




IC 


WORK,HLCSL 


CSID. LENGTH OF OLD RECORD 


A271922D 


ENRHOH 


STC 


WORK,NWC5L 


CSID. LENGTH OF NEW RECORD 


A2719230 




BCTR 


WORK>0 


CSID LENGTH -1 TO HVC 


A271924G 




STC 


WORK,ENRMOPU 


* 


A2719250 




STC 


WORK,ENRKOI+l 




A2719260 


ENRHOI 


HVC 


HXNUH1(1),ZER0F 


ZEROS TO LEFT PART OF H.VAL 


A2719270 



ENRHOJ 



ENRMOL 

ENRHOK 

ENRMOM 



BJRHOP 
ENRMON 



ENRHOQ 



LA 


POINTS, HXNUM1 


CONVERT TO BINARY THE HIGH 


LA 


CONTR,NUH(G,0) 
L3ME,HEXBA 


* VALUE OF NEW NUHBER 


BAL 




BC 


15, ENRHOJ 


* 


ST 


CONTR,HXBINl 


* AND STORE THE BINARY VAL. 


L 


NORK,NWBBM 


INCREMENT THE PRECEDING 


A 


WORK»Kl 


* BINARY NEW NUHBER BY I 


ST 


K0RK,NWBIN+4 


* 


CLC 


NWBIN(4),MXBIN1 


THE BINARY NEW NUHBER IS 


BC 


4,ENRHOH 


*LESS THAN BINARY HIGH VAL. 


BC 


8,ENRH0L 

NNBIN*4(4),HXBIN1 


* EQUAL 


CLC 


THE PRECED . BIN. NEW NUHB.IS 


BC 




^GREATER THAN THE HIGH.VAL 


HVC 


^ r BIN(4),^BINH 


PRECEDING NEW NUHBER +1 TO 


BC 


15,ENRHOH 

ERTBG*14(COB),HSGTBH 


* BINARY NEW NUHBER 


HVC 


ERROR CODECFOR OVERFLOW) TO 


HVC 


ERCGB*14(C0D),HSGTBH 


*ERTBG AND TO PRINT BUFFER 


HVC 


*^BIN(4),K1 


1 TO BINARY NEW NUHBER 


LA 


pointr >mtm 


CONVERT THE BINARY NEW 


LA 


CONTR,NtIH(0>0) 


*NUHBER TO 'ZONED f AND STORE 


L 


WORK>NWBIN 


*IN OCPOINTR) 


BAL 


LINKE,BTNHXA 


* 


TH 


SWEMR,XW 


OLD RECORD TREATHENT 


BC 


B>mmon 


YES-BRANCH 


HVC 


NWCOD(l),HLCOD 


HOVE ,FROH READ HODIF CARD 


HVC 


^TXT(7I),HLTXT 


*TO NEW RECORD- 


HVC 


NWDT(NUH),NWNUH 


* CODE AND TEXT 


HVC 


NWCSD(CS),NLCSD 


* NUHBER AND CS 


HVC 


NWIDT(1),NWCSD 


*(LENGTH OF CS = CSL) 


BCR 


15>LINKC 


RETURN TO CALLER 


HVC 


NWCOD(l),OLCOD 


FROM READ OLD RECORD, TO NEW 


HVC 


NWTXT(71),0LTXT 
K^IBT(NUH),NWNUH 


*RECORD-CODE AND TEXT 


HVC 


*AND NEW NUHBER 


TH 


SWIDT.X'Ol 1 


CHANGE CSID REQUESTED 


BC 


1, ENRHOQ 


YES 


HVC 


NWCSB(CS),OLCSD 


NEW CSID FROH OLD RECORD 


BC 


15,ENRK0P 


* 


HVC 


NWCSD(CS),RPCSBI 


NEW CSID FROH PRECEDING RIS 


BC 


15>ENRB0P 




EJECT 







****************** 

* 

CONVERT A ZONED FIELD TO BINARY - CALLED BY * 
LA POINTR, ZONED ZONED FIELD ADDRESS * 

LA CONTR, LENGTH (0,0) ZONED BYTES NUHBER (WILL CONTAIN THE RESULT)* 

BAL LINKE,HEXBX 



****************** 

* 
* 

* 

* 
* 
* 

* 
* 
* 



ENTRY AT HEXBA - SET THE RESULT TO ZERO IF THE FIELD IS ALL BLANK, 

- OTHERWISE CONVERT THIS FIELD TO BINARY. 
ENTRY AT HEXBB - CONVERT THE FIELD TO BINARY . 

CONVERSION- ALL THE BYTES OF THE FIELD HUST BE NUHERICAL .OTHERWISE 
THE FUNCTION IS INTERRUPTED AND THE RESULT IS SET TO 
ZERO. 

- THE BINARY RESULT IS LOADED IN CONTR . 



A2719280 
A2719290 
A27193Q0 
A27193I0 
A2719320 
A27I9330 
A271934G 
A2719350 
A2719360 
A2719370 
A271938Q 
A2719390 
A2719400 
A271941Q 
A271942Q 
A2719430 
A2719440 
A2719450 
A271946Q 
A271947G 
A271948G 
A27I949G 
A2719500 
A2719510 
A2719520 
A2719530 
A2719540 
A2719550 
A2719560 
A2719570 
A2719580 
A271959D 
A2719600 
A2719610 
A2719620 
A2719630 
A2719640 
A2719650 
A2719660 
A2719670 
A2719680 
A2719690 
A2719700 
A2719710 
A2719720 
A2719730 
A2719740 
A2719750 
A2719760 
A27I9770 
A2719780 
A27I9790 
A2719800 
A2719810 
A2719820 



* EXCEPTIONAL RETURN TO O(LINKE) 

* NORMAL RETURN TO 4(LINKE) 

***************** 

LR NORKA,CONTR 

BCTR N€RKA,0 

STC &IORKA,HEXBAl*l 

CLC BLANKS) >Q(POINTR) 

BC 7>KEXBB 

SR CONTR>CONTR 

BC 15>4(LINKE) 

LR NORK,POINTR 

LR 140RKA>CONTR 

BC 15,HEXBD 

LA NORK,KHORK) 

CLI Q(WORfO,X*FO f 

BC 4>HEXBE 

CLI 0(HORK)>X f F9 f 

BC 2>HEXBE 

BCT NORKA,HEXBC 

NI Q(KORK),X f CF f 

BCTR CONTR>0 

STC C0NTR>HEXBD1U 

01 HEXBDlH>X f 70 f 

KEXBD1 PACK NKAREA(8),Q(4,P0INTR) 

CVB CONTR >WKAREA 

01 0(NORK)>X'30 f 

BC 15,4CLINKE) 

HEXBE SR CONTR,CONTR 

BCR 15>LINKE 
EJECT 

********************* 



* * * * 

HEXBA 



HEXBA1 



HEXBB 



HEXBC 
HEXBB 



* 

************** 

IF ZONED FIELD IS BLANK 

* ANNUL THE BINARY RESULT 

* AND BRANCH TO NORMAL RET. 

* OTHERWISE 

* BRANCH TO CONVERT. 
* 

SAVE ZONED FIELD ADDRESS 
SAVE ZONED FIELD LENGTH 

NEXT ZONED BYTE ADDRESS 

IS NUMERICAL BYTE 

NO- ERROR 

IS NUMERICAL BYTE 

NO-ERROR 

TO NEXT CHARACTER 

f *' TO LAST ZONED BYTE 

LENGTH-1 

STORE LENGTHS OF OPERANDS 
*0F NEXT PACK 
CONVERT 
*T0 BINARY 

NORMAL RETURN TO CALLER 
ZERO TO INVALID RESULT 
EXCEPT. RETURN TO CALLER 



* 

* CONVERT A BINARY FIELD TO ZONED - 
* 
* 

* 

* RETURN TO O(LINKE) 

* . ; 

* * * * 
BINHXA 



************** 

* 

CALLED BY * 



LA POINTR»ZONED 
LA CONTR >LENGTH( 0,0) 
L WORK, BINARY 
BAL LHiKE>BIMHXA 



RESULT FIELD ADDRESS 
RESULT BYTES NUMBER 
BINARY HORD TO BE CONCERTED 



B3KHXB 



*********** 
NORK ,NKAREA 
CONTR >Q 
I40RKB, CONTR 
CONTRA 
CONTR, 7( CONTR) 
CONTR, BINHXB+1 
0(4,POINTR),NKAREA 
POINTR^RKB 
0(POINTR) > XTO r 
15,LINKE 



* * * * 



* * * 
CVD 
BCTR 
LR 
SLA 
LA 
STC 
UNPK 
AR 
01 
BCR 
EJECT 

************************************ 



************** 
CONVERT TO DECIMAL 
ZONED FIELD LENGTH - 1 

THE LENGTH IN UNPK 

* IS X*X8 f 

* 

CONVERT DECIMAL TO ZONED 
LAST BYTE ADDRESS 
SUPPRESS SIGN IN LAST BYTE 



A2719830 
AZ719840 
A2719850 
A2719S60 
A2719870 
A2719880 
A271989Q 
A27I9900 
A27I9910 
A2719920 
A271993Q 
A2719940 
A2719950 
A2719960 
A2719970 
A2719980 
A2719990 
A2720000 
A2720010 
A2720020 
A2720030 
A272004Q 
A272005Q 
A272G06G 
A2720070 
A272008Q 
A2720090 
A2720100 
A2720110 
A2720120 
A2720130 
A272Q140 
A2720150 
A2720160 
A2720170 
A2720180 
A2720190 
A2720200 
A27202I0 
A2720220 
A2720230 
AZ7ZQ2A0 
A2720250 
A272026G 
A2720270 
A2720280 
A2720290 
A2720300 
A2720310 
A2720320 
A272D330 
A2720340 
A2720350 
A272G3G0 
A2720370 



SAVE A READ DATA TO APPROPRIATE AREA - CALLED BY BAL LINKE>PRCXXX* 



PRCRIS - FOR RI5 CARD 
PRCKOD - FOR MODIFICATION CARD 
PRCOLD - FOR OLD RECORD 
PRCPAR - FOR / UPDATE CARD 



* * * * * * * 
PRCRIS HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
BCR 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
BCR 
HVC 
HVC 
HVC 
HVC 
HVC 
HVC 
BCR 

ni 

CLI 

BC 
01 
CLI 
BC 
01 



PRCHOD 



PRCOLD 



PRCPAR 



PRCPA1 



*********** 
RPIBT1(8)>RLIDT1 
RPIBT2C8)>RLIDT2 
RPCNT(1),RLCNT 
RFM0D(1),RLH0D 
RPNUM(8)>RLNUM 
RPSTPZ(8),RLSTPZ 
RPDUPL(1),RLDUPL 
RPCSD1(5)>RLCSD1 
RPNUM1(8),RLNUM1 
RPBIN1(4),RLBIN1 
RPCSD2(8)>RLCSD2 
RPNUH2(8),RLNUH2 
RPBIN2(4),RLBIN2 
RPVALB ( 1 ) , RLVALD 
RPC5DI(8),RLCSDI 
RPNUHI(8),RLNUHI 
RPBINI(4)>RLBINI 
RPSTP(8),RLSTP 
RPSTEP(4)>RL5TEP 
RPCS1L(1),RLCS1L 
RPCS2L(1),RLCS2L 
RPCSNL(1)>RLC5NL 
RPCSSL(1),RLCSSL 
15,LINKE 
HPIDT(8)>HLIDT 
HPC5D(8)>HLCSD 
HPNUM(8)>NLNUM 
HPBIN($),HLBIN 
KFNBR(4),MLNBR 
HPVALD ( 1 ) >HLVALD 
HPCSL(1),HLCSL 
15>LIKKE 
0PIBT(8)>0LIDT 
0PCSD(8),0LCSD 
0PNUM(8),0LNUM 
OPSINS) >OLBIN 
0PVALD(1),0LVALD 
0PCSL(1)>0LCSL 
15,LINKE 
FILESH,X f OO f 
6LFILE>X T E2* 
7>PRCPA1 
FILESW,X f G2 f 
GLPRIN>X*Cl f 
7»PRCPA2 
PRINSl4>X'Ql f 



******* 
RIS CARD 



* 
* 
* 
* 
* 
* 

******** 



RETURN TO CALLER 
HOD IF CARD 



RETURN TO CALLER 
OLD RECORD 



RETURN TO CALLER 

/ UPDATE CARD 

IS SYMBOLIC FILE OPTION 

NO -BRANCH 

YES-SET BITG OF FILES14 
IS ALL CS LISTED OPTION 
NO -BRANCH 

YES-SET BIT? OF PRINSfcl 



A2720380 
A2720390 
A272G400 
A272C410 
A272G42Q 
A2720430 
A272G440 
A2720^5G 
A2720%0 
A272G470 
A2720^30 
A2720490 
A272G5G0 
A2720510 
A2720520 
A2720530 
A2720540 
A272D550 
A2720560 
A272G570 
A2720580 
A2720590 
A2720600 
A2720610 
A272D620 
A2720630 
A272G640 
A2720650 
A272G66G 
A2720&70 
A272068D 
A272069G 
A2720700 
A2720710 
A2720720 
A2720730 
A272074Q 
A2720750 
A2720760 
A2720770 
A2720780 
A2720790 
A272080D 
A272G310 
A272082D 
A272G830 
A272G540 
A27208S0 
A272GS6G 
A2720870 
A272GS3Q 
A272G89G 
A272G900 
A272091G 
A2720920 



PRCPA2 


MVC 


GLFILECi), BLANK 




A2720930 




MVC 


GPZ0ME(W),GL20NE 




A272G940 




mvc 


GPCSD(8),GLCSD 




A2720950 




MVC 


GFCSL(1),GLCSL 




A2720960 




BCR 


15,LINKE 


RETURN TO CALLER 


A2720970 




EJECT 






A2720930 


* * * * 


******************************** A2720990 


* 








* A2721000 


* PRINT A MESSAGE ON PRINTER - CALLED 


BY 


* A27210I0 


* LA MORK, MESSAGE 




* A2721020 


* BAL LINKD 


,PRMEX 




* A272I030 


* 








* A2721040 


* ENTRY 


AT PRME1 - PRINT AN ERROR MESSAGE (SET THE SWITCH T ANY ERROR 


* A2721G5Q 


* 




MESSAGE HAS BEEN PRINTED 0N3 ) . 


* A27210G0 


* ENTRY 


AT PRME3 - PRINT AN INFORMATION MESSAGE 


* A2721070 


* 








* A2721080 


* * * * 


**************** 


**************** A2721090 


FRME1 


01 


SMERR>X* 03* 


ERROR DETECTED 


A2721100 


PRKE3 


IC 


NORKA>0(MORK) 
HORKA,0 


MESSAGE LENGTH 


A272I11G 




BCTR 


* -1 


A272112Q 




CLI 


1(W0RK)>X*F9* 


* 


A2721I30 




BC 


7>PRME4 


* 


A2721140 




BCTR 


RORKA»0 


* -1( SUPPRESS X*15* ) 


A2721150 


PRME4 


SIC 


H0RKA,PRME2H 


* TO MVC LENGTH 


A272I1&0 


PRME2 


MVC 


PRZ0NE+1Q(1)>1(N0RK) 


ERROR MESSAGE ITSELF 


A272117Q 




MVC 


PRZ0HEf8(2),UPDC0D 




A2721180 




BAL 


LIMRE>PRLINA 


PRINTING OPERATION 


A2721190 




BCR 


15, LINKD 




A2721200 




EJECT 






A2721210 


* * * * 


**************** 


**************** A2721220 


* 








* A272I230 


* PRINT 


A MESSAGE ON PRINTER-KEYBOARD 


- CALLED BY 


* A272124Q 


* LA WORK>MESSAGE 




* A2721250 


* BAL LINKE,EDCSLX 




* A27212£0 


* 








* A2721270 


* ENTRY AT EDCSL1 - PRINT AN ERROR MESSAGE (SET THE SNITCH* ANY ERROR 


* A2721280 


* 




MESSAGE HAS BEEN PRINTED 0N3 ) . 


* A2721290 


* ENTRY AT E0CSL2 - PRINT AN INFORMATION MESSAGE 


* A2721300 


* 








* A2721310 


* * * * 


**************** 


**************** A2721320 


EDCSL1 


01 


SHERR,X*03* 


ERROR DETECTED 


A2721330 


E0CSL2 


BCR 


0,0 




A2721340 


EDCSL3 


SR 


WORKA>WORKA 




A2721350 




IC 


WORKA,0(WORK) 


MESSAGE LENGTH 


A2721360 




BCTR 


14ORKA>0 


* -i 


A2721370 




STC 


WORKA,EDCSL<M 


*T0 MVC LENGTH 


A2721380 




LA 


W0RKA,3(K0RKA) 


* +3 (SIMULATOR CODE) 


A2721390 




STC 


WORKA>OWCSL+Z 


*T0 BUFFER LENGTH FOR SVC 4 AZ721400 


EDCSL4 


MVC 


CLZ0NE*2(1)>I(H0RK) 


MESSAGE TO BUFFER 


A272141G 




MVC 


CLZ0NE(2),SIHC0D 




A2721420 




BAL 


LINKF.OWCSL 


WRITE THE MESSAGE 


A272143G 




mi 


CLZOME,X*40* 


CLEAR THE BUFFER 


A2721440 




MVC 


CLZ0NE*1(79),CLZ0NE 




A272145Q 




BCR 


15>LINKE 


RETURN TO CALLER 


A2721460 




EJECT 






A272147Q 



********************************* 
EDIT A LIME OF PRINTER LISTING - CALLED BY BAL LINKE,PREBX 



FREDA 
FREDB 
PREDD 
FREDE 
PREDF 



* * * 
FREDA 
FREDC 



PREDC1 



FREDB 
PREDD 



FREDE 
PREDF 



FREDF2 



-60 BYTES FROM A NEH RECORD 
-50 BYTES FROH AN OLD RECORD 

-B BYTES FROH THE IDENTIFICATION OF AN OLD RECORD 

-8 BYTES FROH THE IDENTIFICATION OF A MODIFICATION CARD 

-8 BYTES FROH THE IDENTIFICATION OF A / UPDATE CARD 



* * * 

HVC 

CLC 

BC 

CLC 

BC 

HVI 

HVC 

BCR 

CLC 

BCR 

HVI 

HVC 

HVC 

BCR 

HVC 

BC 

HVC 

TH 

BCR 

HVC 

HVC 

BCR 

HVC 

BCR 

HVC 

TH 

BC 

HVC 

HVC 

BCR 

EJECT 
******* 



*************** 
NBC0D(8G),NNZ0NE 
NBC0DHS(3)>IPLC0D 

7, FREDC1 

NBC0D+7K1), BLANK 

8, PREDC1 
N8C0D>X f 4G* 
NBC0BH(67)»NBC0D 
15,LINKE 
NBC0D(1)>BINC0D 
7>LINKE 
NBTXT*3>X'40 f 
NBTXT+4(67)>NBTXT+3 
NBC0D(1)>BLAMK 
15,LINKE 

NBCOD(80),OLZONE 
15,PREBC 
0BIDT(8),0LIDT 
OLVALD>X f 01 f 
8>LINKE 

ERTBGH0(COD),HSGTBP 
ERCODUGCCOBKHSGTBP 
15,LINKE 
HBIDT(8)»HLIDT 
15*LINKE 
HESS29*5(3)>N0T 
PRINSU>X'Ql f 
8,PREDF2 

NESS29*5(3)>BLANK 
HESS29+34(CS)>GPC5D 
15,LINKE 



* * 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * 



************ 
C0DE> TEXT »IDENT. 
IS IPL1 
*0R IPL2 

*0R IPL3 COL 69 THROUGH 72 

NO 

YES-BLANKS COL 1 THR. 68 
* 

RETURN TO CALLER 
IS BINARY RECORD 
NO -RE TURN TO CALLER 
BLANKS COL 5 THR. 72 
* 

* AND COL 1 

RETURN TO CALLER 

CODE TEXT IDENT 

RETURN TO CALLER 

IDENTIFICATION 

VALID NUMBER IN OLD RECORD. 

YES-RETURN TO CALLER 

NO-SET ERROR CODE TO 

*ERTBG AND TO PRINT BUFFER 

RETURN TO CALLER 

IDENTIFICATION 

RETURN TO CALLER 

IS ALL CS PRINTED OPTION 

NO -BRANCH 

CS IDENTIFICATION 



PRINT A LINE ON PRINTER 



* 
* 
* 
* 
* 
* 
* 
* 

********************** 
PRLINA TH LINlST,X r 01 f 

BC 8>PRLINB 

CLC NBRLIN ( 4 ) ,HAXLIN 

BC 12>PRLINC 



********************** 



CALLED BY BAL LINKE, PRLINA 



1- SKIP TO NEXT PAGE IF THE LINE TO BE PRINTED IS THE FIRST LINE 
OF A FILE OR OF A HODULE 

2- PRINT THE LINE 



************ 
IS 1ST LINE OF CS 
YES- SKIP TO NEXT PAGE 
IS FULL PAGE 
NO -BRANCH 



* * * 
* 
* 
* 
* 
* 
* 
* 
* 



A2721480 
A2721490 
A272I500 
A2721510 
A2721520 
A2721530 
A272154G 
A2721550 
A2721560 
A2721570 
A2721580 
A2721590 
A2721600 
A272I6I0 
A272162Q 
A2721630 
A272164G 
A2721G50 
A2721660 
A2721670 
A2721680 
A272169Q 
A2721700 
A2721710 
A2721720 
A2721730 
A272174Q 
A2721750 
A272176G 
A2721770 
A272I780 
A2721790 
A2721800 
A2721810 
A2721820 
A2721830 
A272184Q 
A2721850 
A2721860 
A2721870 
A2721880 
A2721890 
A2721900 
A2721910 
A2721920 
A2721930 
A2721940 
A2721950 
A2721960 
A2721970 
A272I9S0 
A272I990 
A2722000 
A2722010 
A2722020 



BC 


15, PRLINC 
NBRLIN(4)>NBRLIN 


* * SKIP BY COUNT SUSPENDED A2722030 


PRLINB XC 


ZERO TO LINES COUNTER 


A2722040 


BAL 


LINKF,OPRSKP 


SKIP TO NEXT PAGE 


A2722050 


PRLINC BAL 


LINKF,OPRINT 


LINE PRINTING OPERATION A2722Q60 


01 


LIN1ST,X'01* 


1ST LINE IS PRINTED 


A2722070 


L 


KORKCNBRLIN 


LINES COUNT 


A2722G80 


LA 


H0RKC1CUGRKC) 


* 


A2722090 


ST 


KORKCNBRLIN 


* 


A2722100 


hVI 


PRZONE,X*40* 


CLEAR BUFFER 


A2722110 


KVC 


PRZ0NE+1(119),PRZ0NE 




A2722120 


BCR 


15,LINKE 




A2722130 


EJECT 






A2722149 


******************** 


************* 


* * * A2722150 


* 






* A2722160 


* I/O OPERATIONS - READ CARD FROM UPDTCORR 


* A2722170 


* CALLED BY 


BAL LINKF, ICARD 




* A2722180 


* 






* A2722190 


* FUNCTION EXECUTED BY A SVC 18 (10 PACKAGE) 


* A2722200 


* 






* A2722210 


* EXIT 








* 1-CONDITION f 97* -THE FUNCTION HAS CORRECTLY BEEN PERFORMED 


* A2722230 




-RETURN TO CALLER 




* A272224Q 


* 2-CONDITION f 03* -ALL THE CARDS HAVE BEEN READ 


* A2722250 


* 


-STORE *7F* IN BUFFER 


* A27222&0 


* 


-RETURN TO CALLER 




* A2722270 


* 3-CONDITION * 02* -DEVICE MALFUNCTION 


* A2722280 


* 


-BRANCH TO ERSTPC 


(EXCEPTIONAL END OF JOB). 


* A2722290 


* ^-CONDITION *01*-THE 'UPDTCORR 'SYMBOL IS UNKNOWN 


* A2722300 


* 


-PRINT A MESSAGE ON THE PRINTER-KEYBOARD 


* A2722310 


* 


-BRANCH TO ERSTPC 


(EXCEPTIONAL END OF JOB) . 


* A2722320 








* A2722330 


* * * * * *************** 


************* 


* * * A2722340 


CNOP 


0,4 




A272235D 


ICARD SVC 


IB 


READ CARD 


A2722360 


DC 


C* UPDTCORR* 


SYMBOLE 


A2722370 


DC 


FL2W 


COUNT 


A2722380 


DC 


ACRISBUF) 


BUFF. ADDRESS 


A2722390 


TM 


RISBUF,X*07* 


IS CORRECT 


AZ7224G0 


BCR 


ULINKF 


YES-RETURN TO CALLER 


A2722410 


TM 


RISSUF>X f 03 f 


UPDTCORR END 


A2722420 


BC 


12, ICARDC 


NO-BRANCH 


A272243Q 


HVC 


RISBUF(1),TPMARK 


YES 


A2722449 


BCR 


15>LINKF 


TO CALLER 


A2722450 


ICARDC TM 


RISBUF,X*01* 


UPDTCORR UNKNOWN 


A2722460 


BC 


1 , ICARDA 


YES-BRANCH 


A2722470 


TM 


RISBUF,X*02* 


DEVICE MALFUNCTION 


A272248G 


BC 


1, ERSTPC 


YES - STOP 


A2722490 


BC 


15, ERSTPC 


STOP 


A2722500 


ICARDA LA 


NDRK>ERME18 


WRITE ERROR MESSAGE 


A27225I0 


MVC 


ERME18*24(8)>ICARD+2 
L2NKE,EDCSL1 


* 


A2722520 


BAL 


* ON PRINTER-KEYBOARD 


A2722530 


BC 


15, ERSTPC 


STOP 


A272Z540 


EJECT 






A2722550 


******** 


************* 


************* 


* * * A2722560 


* 






* A2722570 



* I/O OPERATIONS - READ AN OLD RECORD FROM UFDTOLD 



CALLED BY BAL LINKF,IRECD 

FUNCTION EXECUTED BY A SVC 18 (10 PACKAGE) 



EXIT 

1-CONDTTION 



2-C0NDITI0N 



3-CONDITION 



4-CONDITION 



'G7' -THE FUNCTION HAS CORRECTLY BEEN PERFORMED 

-AN OLD RECORD HAS BEEN READ 

-RESET THE SNITCH f TAPE HARK READ 'OFF 

-RETURN TO CALLER • 
'03'-A TAPE MARK HAS BEEN READ 

-SET THE SWITCH 'OLD DATA END 'ON > IF 
MARK FOLLOWS AN OTHER TAPE MARK 

-SET THE SWITCH 'OLD FILE END 'ON > IF 
HARK FOLLOWS AN OLD RECORD 

-RETURN TO CALLER. 
'02 '-THE 'UFDTOLD 'SYMBOL IS UNKNOWN 

-PRINT A MESSAGE ON THE PRINTER KEYBOARD 

-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) 
'Gl' -DEVICE MALFUNCTION 

-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) 



THE READ TAPE* 
THE READ TAPE* 



IRECD 



IRECDB 
IRECDD 
IRECDC 

IRECDA 



CNOP 


0,4 




SVC 


18 


READ OLD RECORD 


DC 


C 'UFDTOLD ' 


SYMBOLE 


DC 


FL2'80' 


COUNT 


DC 


A(OLDBUF) 


BUFF-ADDRESS 


TM 


0LDBUF,X f Q7' 


CORRECT 


BC 


1, IRECDD 


YES-BRANCH 


TM 


OLDBUF,X'03' 


TAPE HARK IS READ 


BC 


12 > IRECDC 


NO -BRANCH 


TM 


SN0LD,X'Q1' 


IS FIRST TAPE MARK 


BC 


8, IRECDB 


YES -BRANCH 


01 


SW0LD,X'Q2' 


NO-IS OLD DATA END (7F)2 


BCR 


15,LINKF 


RETURN TO CALLER 


01 


SWOLD,X'01 f 


IS OLD FILE END (7F)1 


BCR 


15,LINKF 


RETURN TO CALLER 


NI 


SWOLD,X'G0' 


NOT ANY BID 


BCR 


15,LINKF 


RETURN TO CALLER 


TM 


0LBBUF,X'G1' 


UPDTOLD UNKNOWN 


BC 


1, IRECDA 


YES-BRANCH 


TM 


0LDBUF,X'G2' 


DEVICE MALFUNCTION 


BC 


1, ERSTPC 


YES -STOP 


BC 


15, ERSTPC 


STOP 


LA 


WORK, ERHE18 


WRITE ERROR MESSAGE 


MVC 


ERME13*24(8),IRECD+2 




BAL 


LINKE,EDCSL1 


* ON PRINTER KEYBOARD 


BC 


15, ERSTPC 


STOP 


EJECT 







XX***X#* 

* I/O OPERATIONS - WRITE A NEW RECORD ON UPDTNEW * 

* CALLED BY BAL LINKF,OWRITE WRITE A NEW RECORD * 

* BAL LINKF,OWTMRK WRITE A TAPE MARK * 



A2722580 
A2722590 
A272260G 
A2722G10 
A272262Q 
A2722630 
A272264Q 
A2722650 
A2722660 
A2722670 
A2722680 
A2722690 
A27227G0 
A272271G 
A272272G 
A2722730 
A2722740 
A2722750 
A2722760 
A272277G 
A2722780 
A272279G 
A27228GG 
A2722810 
A2722820 
A2722830 
A27228A0 
A272285G 
A2722860 
A2722870 
A2722880 
A2722890 
A27229G0 
A2722910 
A272292G 
A2722930 
A2722940 
A272295G 
A272296D 
A272297G 
A272298G 
A2722990 
A2723000 
A2723G10 
A272302G 
A2723Q3G 
A2723G4G 
A2723G50 
A2723GS0 
A2723G70 
A2723G8G 
A272309G 
A27231G0 
A2723I10 
A272312G 



* 
* 

* 
* 
* 

* 



FUNCTION EXECUTED BY A SVC 18 (10 PACKAGE) 
EXIT 

1- CONBITION * 07* -THE FUNCTION HAS CORRECTLY BEEN PERFORMED 

-RETURN TO CALLER. 

2- CONDITION f 03*-5TICKER DETECTED 

-BRANCH TO ER5TPC (EXCEPTIONAL END OF JOB) 

3- CONDITION f 02 f -THE 'UPDTNEW' SYMBOL IS UNKNOWN 

-PRINT A MESSAGE ON THE PR INTER -KEYBOARD 
-BRANCH TO ERSTPC (EXCEPTION END OF JOB) 

4- CONDITION ' 01 '-DEVICE MALFUNCTION 

-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) 



* * * * 


* * * 


************ 


* * 


************* 


OWRITE 


MVI 
BC 


ONRIT1H>80 
15,0WRIT2 




80 TO BUFFER LENGTH 


OWTMRK 


MVI 


OWRIT1U,X'01 T 




01 TO BUFFER LENGTH 




mc 


NEHBUF+K 1 ) , TPMARK 




TAPE MARK TO FIRST BYTE 




cm? 


0,4 






0NRIT2 


SVC 


18 




WRITE ON UPDTNEN 




DC 


C'UPDTNEN » 




SYMBOL 


0WRIT1 


DC 


FL2W 




COUNT 




DC 


A(NEWBUF) 




BUFFER ADDRESS 




TM 


NEWBUF>X'Q7 f 




CORRECT 




BCR 


1»LINKF 




YES-RETURN TO CALLER 




TM 


NEWBUF,X f 03 T 




STICKER DETECTED 




BC 


1, ERSTPC 


* 


YES - STOP 




TM 


KEWBUF,X V 01* 




UFDTNEW UNKNOWN 




BC 


1>0WRITA 




YES-BRANCH 




TM 


NEWBUF,X f 02 f 




DEVICE MALFUNCTION 




BC 


1, ERSTPC 




YES-STOP 




BC 


15, ERSTPC 




STOP 


OWRITA 


LA 


H0RK,ERME18 




WRITE ERROR MESSAGE 




MVC 


ERME18+24(8),0WRIT2+2 




* 




BAL 


LINKE,EDCSL1 




*0N PRINTER KEYBOARD 




BC 


15, ERSTPC 




STOP 




EJECT 






* * * * 


* * * 


************ 


* * 


************* 



* I/O OPERATIONS - WRITE A DUPLICATE OF A NEW RECORD ON DUPLFILE 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



CALLED BY 



BAL L3KKF»ODUPL 
BAL LINKF,ODTMRK 



WRITE A DUPLICATE 
WRITE A TAPE MARK 



FUNCTION EXECUTED BY A SVC 18 (10 PACKAGE) 



EXIT 

1- COHDITION 

2- C0NDITI0N 

3- C0NDITI0N 



4-C0NDITI0N '01 



* 07* -THE FUNCTION HAS CORRECTLY BEEN PERFORMED 

-RETURN TO CALLER. 
'03' -STICKER DETECTED 

-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) . 
'02' -THE * DUPLFILE 'SYMBOL IS UNKNOWN. THIS CONDITION* 
DOES NOT OCCUR, AS THE FUNCTION IS NOT STARTED * 
IF THE CORRESPONDING DEVSUP CARD IS ABSENT. * 
DEVICE MALFUNCTION * 



A2723130 
A2723140 
A2723150 
A27231&0 
A2723170 
A2723180 
A2723190 
A2723200 
A2723210 
A2723220 
A2723230 
A2723240 
A2723250 
A27232S0 
A2723270 
A2723280 
A2723290 
A2723300 
A2723310 
A2723320 
A2723330 
A2723340 
A2723350 
A2723360 
A2723370 
A2723380 
A2723390 
A27234G0 
A272341G 
A2723420 
A2723430 
A2723440 
A2723450 
A2723460 
A2723470 
A2723480 
A2723490 
A2723500 
A2723510 
A2723520 
A2723530 
A2723540 
A2723550 
A2723560 
A2723570 
A2723580 
A2723590 
A2723600 
A2723G10 
A2723620 
A2723630 
A2723G40 
A2723650 
A2723G60 
A2723G70 



* 
* 



-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) 



* * * * 


* * * 


************ 


* * 


************ 


ODUPL 


HVI 


OBUPL1*1,80 




80 TO BUFFER LENGTH 




BC 


15 *0DUPL2 






ODTNRK 


HVI 


OQUPLl+l*X ? 01 f 

VJwU* l_X ' X > A vX 




Ql TO BUFFER LENGTH 

UX IV Owl 1 u.iN UUiU til 




HVC 


DPLBUF+K 1 ) * TPMARK 








CNOP 


0*4 






ODUPL 2 


SVC 


18 




WRITE ON nUPLFILF 

rtfvx i I— \Jl% UUrLI XI— I— 




DC 


C'DOPLFILE* 




SYMBOL 


0DUPL1 


BC 


FL2 f 80 f 




COUNT 




DC 


A(BPLBUF) 




ROOFER ADDRESS 




TH 






CORRECT 




BCR 


1, LINKF 




YES-RETURN TO CALLER 

1 l_ O f\t_. t wiMI i V/ VitlUlnl.. I> 




TH 


DPLBUF*X f Q3 f 




STICKER DETECTED 




BC 


1, ERSTPC 


* 


*ST0P 




TH 


DPLBUF,X*01 f 




n?ipr fti p iRjiftjnuN 

UUr L.I ILL U»t5\}»vP«* 




BC 


1, ODUPLA 




YES-BRANCH 




TH 


DPLBUF,X f Q2 f 




DEVICE MALFUNCTION 




BC 


1, ERSTPC 




YES-STOP 




BC 


15, ERSTPC 




STOP 


ODUPLA 


LA 


NQRK,ERHE18 




WRITE ERROR HESSAGE 




HVC 


ERME1B*24(8),0DUPL2*2 




* 




BAL 


L3ME,EBCSL1 




*€N PRINTER-KEYBOARD 




BC 


15, ERSTPC 




STOP 




EJECT 






* * * * 


* * * 


************ 


* * 


************ 



* I/O OPERATIONS - PRINT A LINE ON PRINTER 



* 
* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * * * 
OPTMRK 



OPRINT 



OPRSKP 



CALLED BY 



BAL LINKF, OPRINT 
BAL LINKF, OPRSKP 
BAL LINKF, OPTMRK 



PRINT A LINE 

SKIP TO NEXT PAGE 

NRITE A TAPE HARK (PRINTER IS 

ASSIGNED TO TAPE UNIT) 



FUNCTION EXECUTED BY A SVC 18 (10 PACKAGE) 
EXIT 



1- C0NDITI0N '07* -THE FUNCTION HAS CORRECTLY BEEN PERFORMED 
-RETURN TO CALLER. 

2- C0NDITI0N *03 f -STICKER DETECTED 
-BRANCH TO ERSTPC (EXCEPTIONAL END OF JOB) . 

3- C0NDITI0N '02* -THE'PRINTER* SYHBOL IS UNKNOWN -THIS CONDITION 
EK)ES NOT OCCUR, AS THE FUNCTION IS NOT STARTED 
IF THE CORRESPONDING DEVSUP CARD IS ABSENT . 
DEVICE MALFUNCTION 

BRANCH TO ERSTPH (EXCEPTIONAL END OF JOB) 



^-CONDITION *01* 



************** 

HVC PRTBUF+K 1 ) , TFMARK 

HVI OPRINl+l,X f Ql f 

BC 15,0PRIN2 

HVI PRTBUFU,X f 00 v 

HVI OPRINIU,120 

BC 15,0PRIN2 

HVI PRT8UFH,X T F1» 



* * * * 



************* 
TAPE HARK TO PRINT BUFFER 
01 TO BUFFER LENGTH 

SPACE 1 LINE 

* AFTER PRINTING 

SKIP AT NEXT PAGE 



* A272368G 

* A2723690 

* A2723700 
A2723710 
A2723720 
A2723730 
A2723740 
A2723750 
A2723760 
A2723770 
A2723780 
A2723790 
A2723800 
A2723810 
A2723820 
A2723830 
A2723840 
A2723850 
A27238&G 
A2723870 
A2723680 
A2723890 
A2723900 
A2723910 
A2723920 
A272393Q 

* A2723940 

* A2723950 

* A27239&0 

* A2723970 

* A2723980 

* A2723990 

* A2724000 

* A2724Q1Q 

* A2724020 

* A2724030 

* A2724G40 

* A2724G50 

* A272406Q 

* A2724Q7Q 

* A2724080 

* A2724990 

* A2724100 

* A2724110 

* A2724120 

* A2724130 

* A2724140 

* A2724150 
A2724160 
A2724170 
A2724180 
A2724190 
A27242Q0 
A2724210 
A2724220 



HVI 


OFRINlH,X f 03 f 




PR3KT 3 BLANKS 






A2724230 


CHOP 


0,4 










A2724240 


0FRIN2 SVC 


18 










A2724250 


DC 


C 'PRINTER f 




SYMBOL 






A2724260 


OPRIN1 DC 


FL2'I20 f 




COUNT 






A2724270 


DC 


A(PRTBUF) 




BUFFER ADDRESS 






A2724280 


TH 


PRTBUF,X r 07 f 




CORRECT 






A2724290 


BCR 


1,LINKF 










A2724300 


TH 


PRTBUF,X f G3 f 




STICKER DETECTED 






A2724310 


BC 


1,ERSTPC 




YES- STOP 






A2724320 


TH 


PRTBUF,X f 01 f 




PRINTER UNKNOWN 






A2724330 


BC 


l,OFRINA 




YES 






A2724330 


TH 


PRTBUF,X f 02* 




DEVICE MALFUNCTION 






A2724350 


BC 


1,ERSTPH 




YES-STOP 






A2724360 


BC 


15>ERSTPH 




STOP 






A2724370 


GPRXNA LA 


N0RK,ERME18 




MRITE ERROR HESSAGE 






A2724380 


HVC 


ERME18*24(8),0PRIN2+2 


* 






A2724390 


BAL 


LINKE,EDCSL1 
15,ER5TPH 




*ON PRINTER-KEYBOARD 






A2724400 


BC 




STOP 






A2724410 


EJECT 












A2724420 


***************** 


* * * * 


************ 


* 


* 


* A2724430 














* A2724440 


* I/O OPERATIONS - WRITE A HESSAGE ON THE PR INTER -KEYBOARD 






* A2724450 


* CALLED BY BAL LINKF,OtCSL 










* A2724460 


* 












* A2724470 


* FUNCTION EXECUTED BY A SVC 4 


(CONTROL PROGRAH) 






* A27244B0 


* 












* A2724490 


* EXIT 












* A2724500 


* 1-CONDITION W -FUNCTION ACCEPTED, HOT PERFORMED 






* A2724510 




-MAIT OTHER CONDITION . 






* A2724520 


* 2-C0NDITI0N »07 f -FUNCTION CORRECTLY PERFORMED 






* A2724530 


* 


-RETURN TO 


CALLER, 








* A2724540 


* 3-CONDITION '01* -FUNCTION PERFORMED 






* A2724550 


* 


-PERSISTENT ERROR 


(BAD SPELLING) 






* A2724560 




-RETURN TO 


CALLER, 








* A2724S70 


* 4-CONDITION *G3 T -PROGRAM ERROR, FUNCTION NOT STARTED 






* A2724580 


* 


-BRANCH TO ERSTPE 


(EXCEPTIONAL END OF JOB) 






* A2724590 


* 












* A2724600 


***************** 


* * * * 


************ 


* 


* 


* A2723610 


CNOP 


2,4 










A2724G20 


ONCSL SVC 


4 










A2724630 


DC 


X f 64 T 




BUFFER LENGTH 100 BYTES 


A2724640 


DC 


AL3CCSLBUF) 




BUFFER ADDRESS 






A2724650 


OHCSL1 TH 


CSLBUF»X*07 f 




WRITING OPERATION IS 






A2724660 


BC 


8,0WCSL1 




*NOT FERFORHED -WAIT 






A2724670 


BCR 


1,LINKF 




*GOOD PERFORNED-TO CALLER 


A2724680 


TH 


CSLBUF,X f 03 f 










A2724690 


BC 


1>ERSTPA 




*NQT STARTED - STOP 






A2724700 


TH 


CSLBUF,X f GP 










A2724710 


BCR 


lyLIHKF 




*PERF.(BAD SPELLING) -CALL • A272472G 


BC 


15,ER5TPA 




STOP 






A272473D 


EJECT 












A2724740 


***************** 


* * * * 


************ 


* 


* 


* A2724750 


* 












* A2724760 


* I/O OPERATIONS 










* A2724770 



REQUEST FOR 10 CHARACTERISTICS OF A DEVICE 
CALLED BY BAL LINKF,DEVT5T 

FUNCTION EXECUTED BY A SVC 17 (10 PACKAGE) 

(DVNAHE CONTAINS THE NAME OF THE DEVICE TO BE TESTED 

( 9UPDT0LD3 FOR EXAMPLE ) 
(DVADD CONTAINS 4 ZEROS ) 
(DVTYP CONTAINS 4 BLANKS) 
(DVIO CONTAINS 1 BLANK ) 



EXIT 

1-DVKH4 



2-DVERR 



-10 PACKAGE ANSWERS 'THE DEVICE IS ASSIGNED* 

-DVADD CONTAINS THE DEVICE ADDRESS 

-DVTYP CONTAINS THE DEVICE TYPE 

-DVIO CONTAINS EITHER* I f ( INPUT) OR *0* (OUTPUT) 

-BRANCH TO 4(LINKF) 

-10 PACKAGE ANSWERS *THE DEVICE IS NOT ASSIGNED* 
-DVADD, DVTYP, DVIO ARE NOT CHANGED 
-BRANCH TO O(LINKF) 



* * * * 


* * * 


********* 


******************** 


DEVTST 


MVC 


DVADD(2),ZER0 






HVC 


DVTYP(4), BLANK 
DV 10(1), BLANK 






HVC 






CHOP 


0,4 






SVC 


17 




DVNAHE 


DS 


8C 


NAHE OF TESTED DEVICE 


DVADD 


DC 


X*QGOQ* 


DEVICE ADDR. (STORED BY SVC) 


DVTYP 


DC 


C* * 


DEVICE TYPE (STORED BY SVC) 


DVIO 


DC 


c* * 


I OR 0 (STORED BY SVC) 




DC 


AL3( DVERR) 


EXCEPTIONAL RETURN 




BC 


15,4(LINKF) 


DEVICE IS ASSIGNED 


DVERR 


BCR 


15,LINKF 


DEVICE IS NOT ASSIGNED 




EJECT 




* * * * 


* * * 


********* 


******************** 


* 






* 



* I/O OPERATIONS 



REHIND A TAPE 



* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 

* * * 



CALLED BY BAL LINKF, REHIND 
FUNCTION EXECUTED BY A SVC 13 (CONTROL PROGRAM) 
EXIT 

1- REHACC -* ACCEPTED RETURN* 
-RETURN TO CALLING BY BCR 15,LINKF 

(AN INTERRUPTION IS EXPECTED AT CHANNEL END ) 

2- REHRET -EITHER * NORMAL RETURN *FROM THE CONTROL PROGRAM 
-OR*EXCEPTIONAL RETURN *FROM THE CONTROL PROGRAM 
-RETURN TO INTERRUPTION POINT BY SVC 3 



REHIND 
REHADD 



* * * 

CHOP 
SVC 
DC 
DC 



* * * * * 
4,6 
13 

x*oooo* 

A(REHCCH) 



*********************** 



DEVICE ADDRESS 
REHIND CCH ADDRESS 



A2724780 
A2724790 
A2724800 
A2724310 
A2724820 
A272483D 
A2724340 
A2724850 
A272**860 
A2724870 
A2724880 
A2724S90 
A272490Q 
A2724910 
A272492Q 
A2724930 
A2724940 
A2724950 
A2724960 
A2724970 
A2724980 
A272499Q 
A27250G0 
A272501D 
A2725020 
A2725039 
A2725040 
A2725050 
A2725Q6Q 
A2725070 
A2725030 
A2725090 
A2725100 
A272511D 
A2725120 
A2725130 
A2725140 
A272515D 
A2725160 
A2725170 
A2725180 
A2725I90 
A2725200 
A2725210 
A2725220 
A2725230 
A2725240 
A272525Q 
A2725260 
A2725270 
A272528Q 
A2725290 
A27253Q0 
A2725310 
A2725320 





D5 


C 




DS 


3C 




DS 


D 


REHPS4 


05 


D 




DC 


A (RETIRED 




DC 


A(RENRET) 


RB4ACC 


OCR 


15,LINKF 




CHOP 


2,4 


REMRET 


SVC 


3 




DC 


A(RENPSJ4) 


REWCCW 


cm 


X f 07',*>X*00M 




EJECT 





STATUS 
SENSE 
OLD CSH 
OLD PSJ4 

NORMAL RETURN ADDRESS 
EXCEPTIONAL RETURN ADDRESS 
REH* ACCEPTED -HAIT INTERR. 

RETURN TO INTERRUPT. POINT 
*( CALLING POINT) 
REMIND CO! 



* PROGRAM CHECK ROUTINE * 
% * 

* ITS CHARACTERISTICS HAVE BEEN DEFINED IN THE INITIALIZATION * 

* ROUTINE BY A SVC 6 * 

* THIS ROUTINE IS CALLED BY THE CONTROL PROGRAM AFTER A PROGRAM * 

* INTERRUPTION * 

* A MESSAGE IS PRINTED ON THE PRINTER * 

* BRANCH TO ERSTPE (EXCEPTIONAL END OF JOB) * 

PCBECK LA K0RK>ERHE21 PRINT ERROR MESSAGE 

BAL LINKD»PRHE1 *AND 

BC 15, ERSTPE * STOP 
EJECT 

CS EQU 6 

HUM EQU 8 
* 

* INPUT BUFFER - T UPDTOLD f - OLD RECORD * 



OLDBUF DS C 

OLZONE DS CL60 

OLCOD EQU OLZONE 

OLTXT EQU OLZONE*! 

OLIDT EQU 0LZ0NE+72 

OLCSD DS D 

OLNUM DS D 

OLBIN DS F 

OLCSL DS C 

OLVALD DS C 

% * 
* TO STORE PRECEDING OLD RECORD * 



1 BYTE BEFORE DATA 1 

READING ZONE 60 COL 1-80 
RECORD CODE, OR 1ST TEXT BYTE 1 COL 1-1 

TEXT 71 COL 2-72 
IDENTIFICATION 8 COL 73-80 

CS IDENT.CLEFT JUSTIFIED) 8 
RECORD NUMBER (RIGHT JUST.) 8 
BINARY VALUE OF OLNUM 4 

LENGTH OF CS IDENT IN OLIDT (LEFT PART) 
BIT 7=1 FOR INVALID RECORD 1 



A2725330 
A2725340 
A2725350 
A2725360 
A2725370 
A2725380 
A2725390 
A2725400 
A2725410 
A2725420 
A2725430 
A272544Q 
A2725450 
A27254&0 
A2725470 
A27254S0 
A2725490 
A2725509 
A2725510 
A2725520 
A2725530 
A2725540 
A2725550 
A2725560 
A2725570 
A272558Q 
A2725590 
A2725600 
A2725&10 
A2725620 
A2725G30 
A2725640 
A2725G50 
A2725660 
A2725670 
A2725660 
A2725690 
A2725700 
A2725710 
A2725720 
A2725730 
A2725740 
A2725750 
A2725760 
A2725770 
A2725780 
A2725790 
A2725800 
A2725810 
A2725820 
A2725830 
A2725840 
A2725850 
A2725860 
A2725S70 



X 










X 


A272588Q 


X X X X 


x x x 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2725890 


OPIDT 


OS 


D 




IDENTIFICATION 


8 


A27259GQ 


x 












A2725910 


OPCSD 


DS 


D 




CS IDENT. 


8 


A2725920 


OPNUH 


DS 


D 




RECORD NUMBER 


8 


A2725930 


OPBIN 


DS 


F 




BINARY VALUE OF OPNUH 


Q 




OPCSL 


BS 


C 




LENGTH OF CS IDENT IN OPIDT 


(LEFT PART) 


A2725950 


OPVALD 


DS 


C 




BIT 7=1 FOR INVALID RECORD 


1 


A2725960 




EJECT 








A2?25970 


* x x x 


x x x 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2725980 












X 


A2725990 


* INPUT BUFFER - T UPDTCORR f - RI5 CARD 


X 


A2726000 


x 










X 


A2726G10 


x x x x 


XXX 


X X X X X X 


X 


X XX xxxxxxxxxxxx 


X X X X X X X 


A2726020 


RISBUF 


DS 


c 




1 BYTE BEFORE DATA 


1 


A2726030 


RL20NE 


DS 


CL80 




READING ZONE 


80 COL 1-80 


A2726040 


RLCOD 


EQU 


RLZONE 




RIS CARD CODE 


4 COL 1- 4 


A2726050 


RLIBT1 


EQU 


RLZONE+7 




1ST IDENTIFICATION 


8 COL 8-15 


A2726060 


RLIDT2 


EQU 


RLZONE*23 




2ND IDENTIFICATION 


8 COL 24-31 


A2726070 


RLCNT 


EQU 


RLZONE+40 




R,I,S,N=REQUESTEB FUNCTION 


1 COL 41-41 


A2726G80 


RLMOD 


EQU 


RLZONE+43 




C=HODIF. PER CS 


1 COL 44-44 


A2726090 


RLNUM 


EQU 


RLZONE+51 




INITIAL NEW NUMBER (RIGHT- JUST. )8 COL 52-59 


A2726100 


RLSTPZ 


EQU 


RLZONE*59 




STEP FOR NUMBERING (RIGHT) 


8 COL 60-67 


A2726110 


RLDUPL 


EQU 


RLZ0NE*68 




D=DUPLICATE OF CS IS REQUESTED 1 COL 69-69 


A2726120 














A2726130 


RLCSD1 


DS 


D 




1ST CS IDENTIFICATION 


8 


A2726140 


RLNUH1 


DS 


D 




1ST NUMBER 


6 


A2726150 


RLBIN1 


DS 


F 




BINARY VALUE OF RLNUH1 


4 


A2726160 


RLCSD2 


DS 


D 




2ND CS IDENTIFICATION 


8 


A2726170 


RLHW2 


DS 


D 




2ND NUH3ER 


8 


A2726180 


RLB3H2 


DS 


F 




BINARY VALUE OF RLNUM2 


4 


A2726190 


RLCSDI 


DS 


D 




CS PART BEFORE NUHI 


8 


A2726200 


RLNUHI 


DS 


D 




INITIAL NEM NUMBER 


8 


A2726210 


RLBINI 


DS 


F 




BINARY VALUE OF RLNUNI 


4 


A2726220 


RL5TP 


DS 


D 




NUMBERING STEP 


8 


A2726230 


RLSTEP 


DS 


F 




BINARY VALUE OF RLSTP 


4 


A2726240 


RLCS1L 


DS 


C 




LENGTH OF CS IDENT IN RLIDTKLEFT PART) 


A2726250 


RLCS2L 


DS 


C 




LENGTH OF CS IDENT IN RLIDT2(LEFT PART) 


A2726260 


RLCSNL 


DS 


C 




LENGTH OF CS PART IN RLNUM 


(LEFT PART) 


A2726270 


RLCS5L 


DS 


C 




LENGTH OF CS PART IN RL5TPZ(LEFT PART) 


A2726280 


RLVALD 


DS 


C 




BIT 7=1, INVALID RIS CARD 


1 


A272629G 




EJECT 








A2726300 


x x x x 


XXX 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726310 


x 










X 


A2726320 


* TO STORE PRECEDING RIS CARD 


X 


A2726330 


X 










X 


A2726340 


X X X X 


XXX 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726350 


RPIDT1 


DS 


D 




1ST IDENTIFICATION 


8 


A2726360 


RPIDT2 


DS 


D 




2ND IDENTIFICATION 


8 


A2726370 


RPCNT 


DS 


C 




R,I,S OR N 


1 


A2726380 


RPHOD 


DS 


C 




C= HOD IF. PER CS 


1 


A2726390 


RPNUH 


DS 


D 




INITIAL NEM NUMBER 


8 


A2726400 


RP5TPZ 


DS 


D 




STEP 


8 


A2726410 


RPDUPL 


DS 


C 




D= DUPLICATE 


1 


A2726420 



X 














A2726430 


RPCSD1 


D5 


D 






1ST C5 IDENT 


8 


A2726^G 


RPNUM1 


OS 


D 






1ST NUMBER 


8 


A2726450 


RP8IN1 


D5 


F 






BINARY VALUE OF RPNUM1 




A272646Q 


RPCSD2 


DS 


D 






2ND CS IDENT 


8 


A2726^70 


RPNUM2 


B5 


D 






2ND NUMBER 


6 


A2726480 


RFBIN2 


DS 


F 






BINARY VALUE OF RPNUM2 




A2726490 


RPC5DI 


DS 


D 






CS PART BEFORE NUHI 


8 


A2726500 


RPNUMI 


DS 


D 






INITIAL NEW NUMBER 


8 


A2726510 


RPBIMI 


DS 


F 






BINARY VALUE OF RPNUHI 




A2726520 


RPSTP 


DS 


D 






STEP 


8 


A2726530 


RPSTEP 


DS 


F 






BINARY VALUE OF RPSTP 




A272&540 


RPC51L 


DS 


C 






LENGTH OF CS IDENT IN RPIDTKLEFT PART) 


A2726550 


RPCS2L 


DS 


C 






LENGTH OF CS IDENT IN RPIDT2CLEFT PART) 


A2726560 


RPCSNL 


DS 


C 






LENGTH OF CS PART IN RPNUM 


(LEFT PART) 


A2726570 


RPC55L 


DS 


C 






LENGTH OF CS PART IN RPSTPZ(LEFT PART) 


A2726580 


RPVALD 


DS 


C 






BIT 7=1, INVALID RIS CARD 


1 


A2726590 




EJECT 










A2726600 


X X X X 


x x x 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726610 














X 


A2726620 


* INPUT BUFFER - 


'UPDTCORR* - MODIFICATION CARD 


X 


A2726630 


x 












X 


A2726640 


* * * * 


x x x 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726650 


MLZONE 


EQU 


RLZONE 




READING ZONE 


80 COL 1-00 


A2726&60 


HLCOO 


EQU 


MLZONE 




CARD CODE, OR 1ST BYTE OF TEXT 1 COL 1- 1 


A2726670 


ML TXT 


EQU 


MLZONEU 




TEXT 


71 COL 2-72 


A2726&80 


HLIDT 


EQU 


HLZONE+72 




IDENTIFICATION 


8 COL 73-80 


A2726&90 


x 














A2726700 


HLC5D 


DS 


D 






CS IDENT. 


8 


A2726710 


MLNUB 


DS 


D 






NUMBER 


8 


A272&720 


MLBIN 


DS 


F 






BINARY VALUE OF MLNUM 




A2726730 


MLNBR 


DS 


F 






BIN .NUMBER OF MODIFS CARDS 


4 


A2726740 


HLCSL 


DS 


C 






LENGTH OF CS IDENT IN HLIDT 


(LEFT PART) 


A2726750 


MLVALD 


DS 


C 






BIT 7=1, INVALID MOD IF CARD 


1 


A2726760 


x x x x 


XXX 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726770 


x 












X 


A2726780 


* TO STORE PRECEDING MODIFICATION CARD 


X 


A272679Q 


x 












X 


A2726800 


x x x x 


XXX 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726810 


MPIDT 


DS 


D 






IDENTIFICATION 


8 


A2726820 
















A2726830 


HPCSD 


DS 


D 






CS IDENT. 


8 


A27268$0 


MPNUH 


DS 


D 






NUMBER 


8 


A2726850 


HPBIN 


DS 


F 






BINARY VALUE OF MPNUM 




A27268G0 


MPNBR 


DS 


F 






BIN. NUMBER OF MODIFS CARDS 




A2726870 


HPC5L 


DS 


C 






LENGTH OF CS IDENT IN MPIDT 


(LEFT PART) 


A2726380 


MPVALD 


DS 


C 






BIT 7=1, INVALID HOD IF CARD 


1 


A2726S9G 




EJECT 










A272G900 


x « # « 


XXX 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726910 














X 


A2726920 


* OUTPUT BUFFER - 


'UFDTNEM * - NEW RECORD 


X 


A272693G 














X 


A2726940 


x x x x 


XXX 


XXX 


XXX 


X 


xxxxxxxxxxxxxxx 


X X X X X X X 


A2726950 


NEWBUF 


DS 


C 






1 BYTE BEFORE DATA 


1 


A27269&G 


NMZONE 


DS 


CL80 






WRITING ZONE 


80 COL 1-80 


A2726970 



NWCOD 


EQU 


NUZONE 




CODE, OR 1ST BYTE OF TEXT 


1 


COL 


1- 1 A2726980 


mm 


EQU 


WEONE+1 




TEXT 


71 


COL 


2-72 A2726990 




EQU 


NWZONE+72 




IDENTIFICATION 


8 


COL 73-80 A2727000 


x 














A2727010 


NUCSD 


DS 


D 




CS IDENT. 


8 




A2727020 


mm 


DS 


D 




NUHBER 


8 




A2727030 


mnm 


DS 


D 




BIN. VALUE OF NHNUHC4 1ST BYT.)3 




A2727040 


hxnumi 


DS 


D 




HIGH VALUE OF tMm 






A2727G50 


MXBIN1 


DS 


F 




HIGH VALUE OF HUB IN 


4 




A2727Q60 


N^iCSL 


DS 


C 




LENGTH OF CS IDENT IN NWIDT 






A2727070 


x x x x 


X X # 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


x x x x x A2727030 


x 














* A2727090 


* OUTPUT BUFFER - 'BUPLFILE' - DUPLICATING OF NEH RECORD . 




* A272710Q 


x 














* A2727110 


* * * * 


* * * 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A2727120 


DPLBUF 


EQU 


NEUBUF 




1 BYTE BEFORE DATA 


1 




A2727130 


DP20NE 


EQU 


NM20NE 




WRITING ZONE 


80 




A2727140 


DPLSW 


DC 


XW 




A CS HAS BEEN DUPLICATED 


1 




A2727150 


X 








BIT 7=1 DURING A FILE TREATMENT 




A2727160 


X 








BIT 6=1 DURING AN UPDATING 






A2727170 




EJECT 










A2727180 


X * X * 


x x # 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A2727190 


X 














* A2727200 


* OUTPUT BUFFER - f PRINTER f - LINE OF UPDATE LISTING 






* A2727210 


x 














* A2727220 


x x x x 


x * * 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A2727230 


PRTBUF 


DS 


C 




1 BYTE BEFORE DATA 


1 




A2727240 


PRZONE 


DS 


CL120 




PRINTING ZONE 


120 


p 


1-120 A2727250 


ERCOD 


EQU 


PRZONE*3 




ERROR CODES AREA 


18 


p 


4- 21 A2727260 


NBCOD 


EQU 


PRZONE+22 




NEW RECORD AREA -CODE 


1 


P 23- 23 A2727270 


NBTXT 


EQU 


PRZ0NE*23 




* -TEXT 


71 


P 24- 94 A2727280 


NBIDT 


EQU 


PRZONE*94 




* -IDENT. 


8 


P 95-102 A2727290 


HBIDT 


EQU 


PRZGNEUG3 




HOD IF CARD AREA -IDENT. 


8 


P 104-111 A2727300 


OBIDT 


EQU 


PRZONE*112 




OLD RECORD AREA -IDENT. 


8 


P 113-120 A2727310 


X 














A2727320 


NBRLIN 


DS 


F 




COUNT OF LINES BY PAGE 


4 




A2727330 


HAXLIN 


DC 


F'56 f 




HAX .NUMBER OF LINES BY PAGE 


4 




A2727340 


LIN1ST 


DS 


C 




BIT7=1,1ST LINE OF CS PRINTED 1 




A2727350 


x x x x 


x * x 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A27273G0 
















* A2727370 


* OUTPUT BUFFER - PRINTER-KEYBOARD - MESSAGE 






* A2727380 


x 














* A2727390 


* * * * 




X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A2727400 


CSLBUF 


DS 


c 




1 BYTE BEFORE DATA 


1 




A2727410 


CLZONE 


DS 


CL100 




WRITING ZONE 


100 


p 


1-100 A2727420 




EJECT 










A2727430 


* * * * 


* * x 


X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


* * * A2727440 
















* A2727450 


* INPUT BUFFER - 'UPDTCORR* - / UPDATE CARD 






* A27274S0 


x 














* A2727470 


* * * * 




X X X X X X 


X 


xxxxxxxxxxxxxxx 


X X 


X X 


xxx A2727480 


GLZONE 


EQU 


RLZ0NE 




READING ZONE 


1 


COL 


1-60 A2727490 


GLCOD 


EQU 


GLZONE 




CARD CODE 


9 


COL 


1- 9 A2727500 


GLFILE 


EQU 


GLZONEHO 




S=SYHBOLIC FILE MODE 


1 


COL 


11-11 A2727510 


GLPRIN 


EQU 


GLZONE+12 




A=ALL CS MUST BE LISTED 


1 


COL 


13-13 A2727520 



GLIDT EQU GLZONE+14 



IDENTIFICATION (LEFT JUSTIF.) 6 COL 15-22 



I=INSERT A NE14 FILE 



1 COL 24-23 



GLFCT EQU GLZONE*23 

* 

GLC5D DS D CS IDENT. 8 

GLCSL DS C LENGTH OF CS IDENT IN GLIDT (LEFT PART) 

************************************ 

* * 

* TO STORE PRECEDING / UPDATE CARD * 

* * 
************************************ 



GPZONE 
GPIDT 
GPFCT 
* 

FILE5M 
PRINSW 
GPCSL 
GPCSD 



DS 

EQU 
EQU 



CL40 

GPZ0NEU4 
GPZONE*23 



IDENT. OF 1ST CS (LEFT ) 
I=INSERT A NEW FILE 



40 
8 
1 



BIT6=Q BINARY, =1 SYMBOLIC FILE 
BIT7=8 MODIFIED CS ONLY PRINTED, =1 ALL CS 
LENGTH OF CS IDENT IN GPIDT (LEFT PART) 
CS IDENT • 8 



DS C 

EQU FILESI4 

DS C 

DS D 
EJECT 

************************************ 

* * 

* GENERAL REGISTERS * 

* * 
************************************ 



TO CALL SOME SUB-ROUTINES 



* 
* 

* 

* LINKA 1ST (HIGH)LEVEL 

* -REFLA (REPLACING ROUTINE ) 

* -SUPPR (DELETING ROUTINE ) 

* -IN5EX (INSERTION ROUTINE ) 

* -COUNT (NUMBERING ROUTINE ) 
* 

* LINKB 2ND LEVEL (ROUTINES CALLED FROM 1ST LEVEL ) 

* -5KCRDX (SKIP UPDTCCRR CARDS) 

* -SKLDX (COPY SOHE OLD RECORDS, OR A MODULE, OR A FILE) 
* 

* LINKC 3RD LEVEL (CALLED FROM 1ST OR 2ND LEVEL) 

* -RDCRD (UPDTCORR CARD READING ROUTINE) 

* -RDOLD (UPDTOLD RECORD READING ROUTINE) 

* -ENRXX (UPDTNEU RECORD EDITING ROUTINE) 
* 

* LINKD 4TH LEVEL (CALLED FROM 1ST, 2ND OR 3RD LEVEL) 
** -RSCAN (TEST AN IDENTIFICATION) 

* -PRMEX (PRINT A MESSAGE ON PRINTER) 
* 

* LIME 5TH LEVEL (CALLED FROM 1ST, 2ND, 3RD, OR 4TH LEVEL) 

* 
* 
* 
* 
* 
* 
* 

* LINKF 6TH LEVEL (CALLED FROM 1ST, 2ND, 3RD, 4TH OR 5TH LEVEL) 



-PREDX (EDIT A LINE OF LISTING) 
-PRLINA (PRINT A LINE ON PRINTER) 
-EDCSLX (PRINT A MESSAGE ON PRINTER-KEYBOARD) 
-PRCXXX (STORE INPUT DATA IN SAVE AREA), 
-HEXBA (CONVERT FROM 20NED TO BINARY) 
-BIKHXA (CONVERT FROM BINARY TO ZONED) 



A2727530 
A2727540 
A2727550 
A2727560 
A2727570 
A2727580 
A2727590 
A2727600 
A272761G 
A272762G 
A2727630 
A2727&40 
A2727650 
A272766Q 
A2727670 
A2727&80 
A272769Q 
A2727700 
A2727710 
A2727720 
A2727730 
A2727740 
A2727750 
A2727760 
A2727770 
A2727780 
A2727790 
A2727B00 
A272781Q 
A2727820 
A2727830 
A2727840 
A2727S59 
A2727860 
A2727870 
A27278S0 
A2727890 
A2727900 
A2727910 
A2727920 
A2727930 
A27279A0 
A272795G 
A2727960 
A2727970 
A2727980 
A2727990 
A2728000 
A2728G10 
A272802G 
A2728030 
A272S040 
A2723050 
A272806Q 
A2728070 



* I/O OPERATIONS * A2728G8Q 

* -ICARD (READ A CARD FROM UPDTCORR) * A27Z8G90 

* -IRECD (READ A RECORD FROM UPDTOLD) * A2728100 

* -OWRITE (WRITE A RECORD ON UPDTNEW) * A272811G 

* -CDUPL (WRITE A DUPLICATE OH DUPLFILE) * A2728I20 

* -OPRINT (PRINT A LINE ON PRINTER) * A2728130 

* -OWCSL (WRITE A MESSAGE ON PRINTER-KEYBOARD ) * A272814Q 

* -DEVTST (REQUEST FOR DEVICE CHARACTERISTICS) * A272815Q 

* -REWIND (REWIND TAPE) * A2728160 

* * A2728170 
************************************ A2728180 
LINKA EQU 1 A2728190 
LINKB EQU 2 A272820D 
LINKC EQU 3 A2728210 
LINKD EQU 4 A27Z8220 
LINKE EQU 5 A2728230 
LINKF EQU 6 A272824Q 

EJECT A2728250 
************************************ A2728260 

* * A2728270 

* WORKING REGISTERS (CAN BE USED TO SUPPLY SUB-ROUTINES WITH * A2728280 

* SOME INFORMATION) * A2728290 

* P0INTR-( HEXBA BINHXA 



* CONTR -( HEXBA BINHXA 

* WORK -(RSCAN BINHXA PRMEX EDCSLX 

* WORKA -(RSCAN 

* WORKB -(RSCAN 

* WORKC -(RSCAN 



* A2728300 

* A2728310 

* A2723320 

* A272833D 

* A272834G 

* A272835Q 



* WORKD * A2728360 

* * A2728370 
************************************ A2728380 
POINTR EQU 7 A2728390 
CONTR EQU 8 A272S4G0 
WORK EQU 9 A2728410 
WORKA EQU 10 A2728420 
WORKB EQU 11 A2728430 
WORKC EQU 12 A272844G 
WORKD EQU 13 A2728450 
************************************ A272S460 

* * A272847Q 

* BASE REGISTERS * A272848G 

* BASERG»BA5ER2 * A2728490 

* * A272S50Q 
************************************ A272S510 
BASER2 EQU 14 A2728520 
BASERG EQU 15 A2728530 

EJECT A2723540 
************************************ A2728550 

* * A2728560 

* VARIOUS CONSTANTS * A2728570 

* * A2728580 
************************************ A2728590 
TPHARK DC X'7F f TAPE HARK A2728G0O 
SLASH DC CV UPDATE ' A2728610 
BLANK DC C* * BLANKS A2728G20 



ZERO DC X'00000000' ZEROS A2728630 

ZEROF DC C f 00000000' A2723640 

HKAREA D5 D WORKING AREA A2728650 

RISCOD DC X'02' RIS CARD CODE A2723660 

DC C f RI5 f * A272S670 

BINCOD DC X'G2' 12 2 9 FOR COL.l A2726650 

IFLCOD DC C'IPL' A2728690 

Kl DC F'l' A2728700 

KB2 DC H*2' A2728710 

KB4 DC H'4' A2728720 

KB8 DC H'8' A2728730 

K999 DC C f 999999999 f A272874G 

NOT DC C'NOT' A272O750 

TAPTYP DC C24G0' A2728760 

EJECT A2728770 

A2728780 

* * A2728790 

* *SWD' SWITCH - RELATED TO BOTH INPUT DATA (UPDTOLD>UPDTCORR) * A2728800 

* * A2728810 

* SWBCE BIT 6=1 -'CARD DATA END' (ALL THE f UPTCORR f CARDS HAVE BEEN * A2728820 

* READ). * A2728830 

* -IS SET TO 0 BY THE 'INIT' ROUTINE. * A2726340 

* -IS SET TO 1 BY THE 'RDCRD' ROUTINE, IF THERE ARE * A2728850 

* NO NORE CARD TO BE READ. * A2728860 

* -IS TESTED BY THE 'FLTGA ' ROUTINE, TO SELECT THE * A2728870 

* FUNCTION TO BE PERFORMED AT THE 'FILE* LEVEL. * A27288S0 

* * A2728890 

* SNDOE BIT 7=1 - T OLD DATA END* (THE LAST TAPE HARK OF 'UPDTOLD' HAS * A2723900 

* BEEN READ). * A2728910 

* -IS SET TO 0 BY THE 'INIT' ROUTINE. * A2728920 

* -IS SET TO 1 BY THE 'RDOLD' ROUTINE, IF A TAPE HARK* A2723930 

* HAS BEEN READ AND IF THE PRECEDING OLD RECORD IS * A272894Q 

* ALSO A TAPE HARK. * A2728950 

* -IS TESTED BY THE 'FLTGA' ROUTINE. * A2728960 

* * A2728970 

A2728980 

SND DC X'GO' A2728990 

SNDCE EQU SMD BIT 6=1 CARD DATA END A2729000 

SNDOE EQU SND 7=1 OLD DATA END AZ72901O 

EJECT A2729020 

A2729030 

* * A2729040 

* 'SWF' SWITCH - RELATED TO AN OLD FILE (MODULES FOLLOWED BY A TAPE * A2729050 

* HARK). * A2729060 

* - RELATED TO A 'CARD' FILE (RIS AND HODIF. CARDS * A2729070 

* FOLLOWING A / UPDATE CARD). * A272903Q 

* * A2729090 

* SWF01 BIT 5=0 -'OLD FILE START' (THE FIRST RECORD OF AN OLD FILE * A2729100 

* HAS BEEN READ. NO OTHER FUNCTION HAS BEEN EXECUTED * A2729110 

* FOR THIS RECORD) * A2729120 

* - IS SET TO 0 BY THE 'FLTGA' ROUTINE, AFTER THE 1ST* A2729130 

* RECORD HAS BEEN READ. * A2729140 

* - IS SET TO 1 BY THE 'RDOLD' ROUTINE, IF ANY OLD * A2729150 

* RECORD HAS BEEN READ. * A2729160 

* * A2729170 



* SJ4FCE BIT 6=1 -'CARD FILE END' (THE CURRENT 'CARD* FILE HAS BEEN * A2729180 

* ENTIRELY READ). * A2729190 

* - IS SET TO THE SAME VALUE AS THAT OF THE 'SNDCE' * A27292Q0 

* SUITCH.dS ALSO f FILE END f WHEN "DATA END* HAS * A27292I0 

* BEEN DETECTED). ( f FLTGA f ROUTINE ) * A2729220 

* - IS SET TO 1 BY THE 'RBCRB* ROUTINE, IF A / UPDATE* A2729230 

* CARD HAS BEEN READ (OR IF NO MORE CARDS). * A2729240 

* - IS TESTED BY THE 'CSTGA' ROUTINE TO SELECT THE * A2729250 

* FUNCTION TO BE PERFORMED AT THE 'CS' LEVEL. * A2729260 

* * A2729270 

* SWFOE BIT 7=1 -'OLD FILE END 1 (THE TAPE NARK FOLLOWING THE LAST * A272928D 

* MODULE OF AN OLD FILE HAS BEEN READ). * A2729290 

* - IS SET TO THE SAME VALUE AS THAT OF THE 'SWDOE* * A2729300 

* SWITCH. (IS ALSO TILE END* AFTER 'DATA END' HAS * A2729310 

* BEEN DETECTED). ( 'FLTGA' ROUTINE ) * A2729320 

* - IS SET TO 1 BY THE 'RBOLD' ROUTINE, IF A TAPE * A2729330 

* HARK HAS BEEN READ). * A2729340 

* - IS TESTED BY THE 'CSTGA* ROUTINE TO SELECT THE * A2729350 

* FACTION TO BE PERFORMED AT THE *CS' LEVEL. * A2729360 

* * A2729370 
k*********************************** A272938Q 

SWF DC X'CG' A2729390 

SWFOl EQU SWF BIT 5=1 1ST OLD RECORD IS TREATED A272940G 

SWFCE EQU SWF 6=1 CARD FILE END A2729410 

SWFOE EQU SWF 7=1 OLD FILE END A272942G 

EJECT A2729430 
************************************ A272944G 

* * A272945Q 

* 'SUCS' SWITCH - RELATED TO AN OLD MODULE (CONTROL SECTION) * A272946Q 

* - RELATED TO A GROUP OF RIS AND MODIF. CARDS > WHICH * A272947Q 

* AFFECTS THE SAME MODULE. * A27294B0 

* * A2729490 

* SHCSC1 BIT 4=1 -'FIRST RIS CARD ALREADY TREATED* * A2729500 

* - IS SET TO 0 AT THE BEGINNING OF THE 'CSTGA' * A2729510 

* ROUTINE (A MODULE WILL BE TREATED, AN RIS CARD HAS * A2729520 

* ALREADY BEEN READ, NO FUNCTION HAS BEEN PERFORMED * A272953G 

* FOR THIS CARD). * A272954G 

* - IS SET TO 1 BY THE 'RDCRD' ROUTINE, IF AN RIS * A2729550 

* CARD HAS BEEN READ. * A2729560 

* * A2729570 

* 5NC501 BIT 5=1 -'FIRST OLD RECORD ALREADY TREATED * * A2729580 

* - IS SET TO 0 AT THE BEGINNING OF THE 'CSTGA 'ROUTINE.* A2729590 

* - IS SET TO 1 AT THE BEGINNING OF THE 1 RDOLD ' ROUTINE .* A2729600 

* - IS SET TO 1 BY THE * IN5EA* ROUTINE (DURING AN * A2729610 

* INSERTION, THE OLD RECORDS HOST NOT BE READ). * A2729620 

* - IS TESTED BY THE *RCTGB* ROUTINE, IF AN INSER- * A2729630 

* TION IS REQUESTED AT THE BEGINNING OF THE MODULE. * A272964G 

* * A2729650 

* SNCSCE BIT 6=1 -'CARD CS END '(THE CARD GROUP RELATED TO A MODULE * A272966G 

* HAS BEEN ENTIRELY READ). * A2729670 

* - IS SET TO 0 AT THE BEGINNING OF THE 'CSTGA' ROUTINE.* A2729680 

* - IS SET TO 1 BY THE 'RDCRD' ROUTINE, IF A * A272969G 

* CARD RELATED TO ANOTHER MODULE HAS BEEN READ. * A2729700 

* - IS TESTED BY THE 'RCTGB' ROUTINE TO SELECT THE * A2729710 

* FUNCTION TO BE PERFORMED AT THE 'RECORD* LEVEL. * A2729720 



* - IS TESTED AT THE END OF THE 'RISN' ROUTINE. * A2729730 

* * A2729740 

* * A2729750 

* SNCSOE BIT 7=1 -'OLD CS END' (THE CURRENT OLD MODULE HAS BEEN * A2729760 

* ENTIRELY READ). * A2729770 

* - IS SET TO 0 AT THE BEGINNING OF THE 'CSTGA 'ROUTINE.* A2729780 

* - IS SET TO 1 BY THE 'RDOLD' ROUTINE, IF THE READ * A2729790 

* OLD RECORD BELONGS TO THE NEXT MODULE. * A2729800 

* - IS SET TO 1 BY THE 'INSEA' ROUTINE (SEE SNCSOl).* A2729610 

* - IS TESTED BY THE f RCT6B f ROUTINE TO SELECT THE * A2729820 

* FUNCTION TO BE PERFORMED AT THE 'RECORD* LEVEL. * A2729S3G 

* - IS TESTED AT THE EXCEPTIONAL END OF THE 'RISN' * A2729S4Q 

* ROUTINE. * A272985G 

* * A27298&0 

A2729870 

SNCS DC X'GO' A272988D 

SNCSC1 EQU 5I4C5 BIT 4=1 1ST RIS CARD OF CS IS TREATED A2729S90 

SNCSOl EQU SNCS 5=1 1ST OLD RECORD OF CS IS TREATED A27299G0 

SNCSCE EQU SNCS 6=1 CARD CS END A2729910 

SNCSOE EQU SNCS 7=1 OLD CS END A2729920 
EJECT A272993D 
*x9t**x****»***x**x*******xx«x****x*x A272994Q 

* * A272995Q 

* 'SW5ET* SNITCH -RELATED TO A SET OF OLD RECORDS TO BE CORRECTED * A272996Q 

* * A2729970 

* - RELATED TO A SET OF 'UPDTCORR' (AN RIS CARD AND ITS * A2729980 

* MODIFICATION CARDS WHICH REQUESTS A CORRECTION IN * A272999G 

* ALL OR PART OF AN OLD MODULE) * A2730000 

* * A2730010 

* SNSECL BIT 2=1 -'LAST MODIF.CARD TREATED' (CARD SET END) * A2730020 

* - IS SET TO D BY THE 'REPLA* AND 'INSEA* ROUTINES. * A2730030 

* (DURING A REPLACEMENT OR AN INSERTION THE MODIFICA- * A273Q040 

* HON CARDS MUST BE READ). * A2730050 

* - IS SET TO 1 BY THE 'SUPFR' AND 'COUNT' ROUTINES. * A2730060 

* (DURING A DELETION OR A NUMBERING THE MODIFICATION * A2730070 

* CARDS MUST NOT BE READ). * A273G080 

* - IS SET TO 1 BY THE 'RISN' ROUTINE IF THE CARD * A2730090 

* FOLLOWING THE LAST MODIF.CARD TO BE TREATED HAS * A2730100 

* BEEN READ . * A2730110 

* - IS TESTED BY THE 'RISN' ROUTINE TO STOP OR TO * A2730I20 

* CONTINUE THE INSERTING PHASE OF THE CURRENT FUNCTION* A2730130 

* * A273G140 

* SNSEOL BIT 3=1 -'LAST OLD RECORD TREATED' (OLD SET END) * A2730150 

* - IS SET TO 0 BY THE 'REPLA' * 'SUPPR' AND 'COUNT' * A2730160 

* ROUTINES( DURING A REPLACEMENT, A DELETION OR A NUMBE-* A2730170 

* RING, THE OLD RECORDS MUST BE READ). * A2730180 

* - IS SET TO 1 BY THE 'INSEA* ROUTINE. (DURING AN * A273Q190 

* INSERTION, THE OLD RECORDS MUST NOT BE READ). * A2730200 

* - IS SET TO 1 BY THE 'RISN' ROUTINE IF THE OLD * A2730210 

* RECORD FOLLOWING THE LAST OLD RECORD TO BE CORRECTED* A2730220 

* HAS BEEN READ. * A2730230 

* - IS TESTED BY THE 'RISN* ROUTINE TO STOP OR TO * A273Q24Q 

* CONTINUE READING OF THE OLD RECORDS. * A2730250 

* * A273G260 

* SNSEC1 BIT 4=1 -'THE 1ST MODIF.CARD OF THE CURRENT SET HAS BEEN * A273G270 



* 

* 
* 

* 
* 

* SHSE01 BIT 5=1 

* 

* 

* 

x * x * 
SWSET 
5HSECL 
SMSEOL 
SWSEC1 
SUSEOl 
SNSECE 
SNSEOE 



TREATED* * 
15 SET TO 0 BY THE 'REPLA' AND ' INSEA* ROUTINES** 
IS SET TO 1 BY THE 'SUFPR* AMD 'COUNT' ROUTINES.* 
IS SET TO 1 BY THE 'RISN' ROUTINE, IF THE 1ST * 
MODIFICATION CARD HAS BEEN TREATED. * 
IS TESTED BY THE 'RISN ROUTINE* TO EXAMINE THE * 
IDENTIFICATION OF THIS FIRST CARD. * 

* 
* 

* 
* 
* 
* 
* 
* 

* 
* 
* 



- f THE 1ST OLD RECORD OF THE CURRENT SET HAS BEEN 
TREATED* 

IS SET TO 0 BY THE 'REPLA' , 'SUPPR' AND 'COUNT' 
ROUTINES. 

IS SET TO 1 BY THE 'INSEA* ROUTINE. 

IS SET TO 1 BY THE *RISN' ROUTINE, AFTER THE 1ST 

OLD RECORD HAS BEEN TREATED. 

IS TESTED BY THE 'RISN* ROUTINE TO SELECT THE 
APPROPRIATE VALUE TO BE ASSIGNED TO THE NEW NUMBER 
OF THIS FIRST RECORD. 



******************************* 



BIT 2=1 LAST MOD IF TREATED 

3=1 LAST OLD RECORD TREATED 

4=1 1ST HOD IF CARD OF SET TREATED 

5=1 1ST OLD RECORD OF SET IS TREATD 

6=1 CARD SET END 

7=1 OLD SET END 



DC 


X'OO' 


EGO 


SUSET 


EQU 


SHSET 


EQU 


5145ET 


EQU 


SWSET 


EQU 


SMSET 


EQU 


SNSET 


EJECT 





****** 
* 
* 
* 



***************** 



'SMSK' SWITCH - 

5 - USED 



'SKLDN' 



BY THE 
IS SET TO 0 AT ' SKLDN * 
IS SET TO 1 AT 'SKLDN' 



ROUTINE. 

(DELETE AN OLD FILE) 
(COPY AN OLD FILE) 



* SNSKF BIT 
* 
* 

* 

* SWSKRD BIT 6 

* SHSKAM BIT 7 - 
* 
* 
* 
* 
* 

********* 
SWSK DC X'OO' 

SWSKF EQU SHSK BIT 5,0 DELETE ,1 COPY, AN OLD FILE 

SHSKRD EQU S4SK BIT 6=1 ONE RECORD TREATMENT 

SW5KAM EQU SMSK BIT 7=1 SEVERAL RECORDS TREATMENT 

************************************ 

* * 

* 'SMSK1' SWITCH - USED BY THE 'SKCRD' ROUTINE. * 

* (BIT 7) - IS SET TO 0 AT'SKCRDA' (SKIP UP TO NEXT MODULE). * 

* - IS SET TO 1 AT'SKCRBH* (SKIP UP TO NEXT FILE). * 

* * 
************************************ 



USED BY THE 'SKLDA' ROUTINE. 
ARE SET TO 00 AT ' SKLDA ' ( COPY AN OLD MODULE). 
ARE SET TO 11 AT 'SKLDB'(COPY AN OLD RECORD). 
ARE SET TO 01 AT 'SKLDC'(COPY THE REMAINDER OF AN 
OLD MODULE). 

************************** 



************* 

* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 
* 



A2730280 
A2730290 
A2730300 
A2730310 
A2730320 
A2730330 
A2730340 
A2730350 
A2730360 
A273037Q 
A2730380 
A273039Q 
A2730400 
A2730410 
A273Q420 
A273Q430 
A2730440 
A2730450 
A273G46G 
A273G470 
A27304S0 
A273G490 
A2730500 
A2730510 
A2730520 
A2730530 
A273Q540 
A273055D 
A2730560 
A273G570 
A2730560 
A2730590 
A2730600 
A2730610 
A273G620 
A2730630 
A273Q640 
A273G65Q 
A2730660 
A2730670 
A2730680 
A2730690 
A2730700 
A2730710 
A2730720 
A2730730 
A273G740 
A2730750 
A2730760 
A2730770 
A27307SO 
A2730790 
A2730800 
A2730810 
A2730320 



SJ45K1 DC X'GO' BIT 7,0 UP TO RIS CARD,1 UP TO / UPDATE A273083Q 

************************************ A2730340 

* * A2730O50 

* 'SiCNR' SWITCH - USED BY THE 'ENRMX' ROUTINE. * A273Q360 

* (BIT 7) - IS SET TO 0 AT * ENRON ' > 'ENROl ' , * ENROA ' (NEW RECORD * A273G370 

* ISSUED FROM OLD RECORD ) . * A273Q880 

* - IS SET TO 1 AT 'ENRMA'(NEW RECORD ISSUED FROM * A2730890 

* MODIFICATION CARD). * A2730900 

* * A2730910 
************************************ A2730920 
SHENR DC X'OO' BIT7 ,0 FROM OLD RECORD > 1 FROM MOD IF CARD A2730930 
************************************ A273094G 

* * A2730950 

* 'SWIDT' SWITCH - USED BY THE EDITION OF A NEW RECORD. * A2730960 

* (BIT 7) - SET TO 0 BY THE 'REPLA', 'SUFPR' , ' INSEA* * A273097D 

* ROUTINES. (DURING A REPLACEMENT, A DELETION OR AN * A2730980 

* INSERTION, THE IDENTIFICATION OF THE MODULE TO BE * A2730990 

* WRITTEN HILL NOT BE CHANGED). * A2731000 

* - SET TO Q BY THE 'COUNT ' ROUTINE. * A2731010 

* - SET TO 1 BY THE "COUNT 1 ROUTINE, IF THE MODULE * A2731020 

* IDENTIFICATION MUST BE CHANGED, AS REQUESTED IN THE * A2731030 

* RIS CARD. * A273104Q 

* - SET TO 0 AT 'ENROA' . * A2731050 

* * A2731060 
************************************ A273I070 
SWIDT DC X'OO' BIT 7=1 CHANGE CS.ID IN NUMBERING ROUTINE A273108D 

EJECT A2731Q90 
************************************ A2731100 

* * A2731110 

* 'SWERR' SWITCH - 'AN ERROR HAS BEEN DETECTED* * A2731120 

* * A2731130 

* BIT 7=1 -'ERROR DETECTED DURING THE TREATMENT OF A FILE' * A2731140 

* - IS SET TO 0 BY THE 'INIT* AND 'FLTGA' ROUTINES.* A273115G 

* - IS SET TO 1 BY THE 'PRME1* AND 'EDC5L1' ROUTI- * A2731160 

* NES.(AN ERROR MESSAGE IS PRINTED) * A2731170 

* - IS TESTED BY THE 'CSTGC ROUTINE TO PRINT A * A2731180 

* MESSAGE AT THE END OF A FILE TREATMENT. * A2731190 

* * A2731200 

* BIT 6 =1 -'ERROR DETECTED DURING AN UPDATING' (JOB LEVEL). * A2731210 

* - IS SET TO 0 BY THE 'INIT' ROUTINE. * A2731220 

* - IS SET TO 1 BY THE'PRHEl* AND'EDCSLl' ROUTINES.* A273123Q 

* - IS SET TO 1 BY THE 'CSTGC ROUTINE IF AN ERROR * A2731240 

* MESSAGE (I,0,N OR D) IS PRINTED. * A2731250 

* - IS TESTED BY THE 'NLSTOP' ROUTINE TO PRINT A * A2731260 

* MESSAGE AT UPDATING END. * A2731270 

* * A2731280 
************************************ A2731290 
SWERR DC X'OO' ERROR (BIT 6 'JOB 'LEVEL KBIT 7 TILE 'LEVEL) A2731300 
************************************ A27313I0 

* * A2731320 

* 'SWRISN' SWITCH -'FUNCTION TO BE EXECUTED DURING THE 'RISN' ROUTINE'* A2731330 

* (BITS 4,5,6 AND 7) * A2731340 

* * A273135D 

* -ARE SET TO 1000 BY THE 'REPLA' ROUTINE. * A273I360 

* -ARE SET TO 0100 BY THE 'INSEA' ROUTINE. * A2731370 



* -ARE SET TO 0010 BY THE 'SUPPR' ROUTINE. * A2731330 

* -ARE SET TO 0001 BY THE 'COUNT* ROUTINE. * A2731390 

* * A2731400 
************************************ A2731410 
SHRISN DC X'OO* BITS 4567 A2731420 
************************************ A2731430 

* * A2731440 

* 'SI40LD' SWITCH - 'TAPE MARKS FROM UPDTOLD' - SET BY THE 'IRECD.* A2731450 

* ROUTINE. * A2731460 

* * A2731470 

* BIT 6 (FILE) - SET TO 0 IF THE READ OLD RECORD IS NOT A TAPE HARK* A2731480 

* - SET TO 1 IF IT IS A TAPE HARK. * A2731490 

* * A2731500 

* BIT 7 (DATA) - SET TO 0 IF IT IS NOT A TAPE HARK. * A2731510 

* - SET TO 1 IF IT IS A TAPE HARK FOLLOWING ANOTHER * A2731520 

* TAPE HARK. * A2731530 

* * A273I540 
************************************ A2731550 
S140LD DC X'OO' 00 NOT ANY END > 01 FILE END, 11 DATA END A2731560 
************************************ A2731570 

* * A27315B0 
*'SWPRER f SWITCH - USED BY THE 'ERSTPX' ROUTINE. * A2731590 

* (BIT 7) - IS SET TO 1 IF THE ERROR IS A PRINTER ERROR * A2731600 

* (PRINT THE LAST HESSAGES ON THE PRINTER-KEYBOARD * A2731610 

* ONLY) * A2731620 

* * A2731630 
************************************ A2731640 
SWDUHP DC X'OO' BIT 7=1 DUMP REQUESTED A2731G50 
SHPRER DC X'GQ' BIT 7=1 STOP FOR PRINTER ERROR A2731660 

EJECT A2731G70 
************************************ A2731680 

* * A2731690 

* UPDATING HESSAGES TYPE = AX9XX FOR PRINTER AND PRINTER-KEYBOARD * A2731700 

* TYPE = UPXXX FOR PRINTER ONLY * A2731710 

* * A2731720 
************************************ A2731730 

* * A2731740 

* END OF JOB - HESSAGES COMMON TO PRINTER AND PRINTER-KEYBOARD * A2731750 

* -4 POSSIBLE CASES * A273I760 

* * A273I770 

* 1 ************************* * A2731780 

* * AX90A END OF UPDATING * * A2731790 

* ************************* * A2731800 

* - NORMAL UPDATING END * A2731810 

* - (REFER TO 'INFORMATION MESSAGES' LISTING ) * A2731820 

* * A2731830 

* * AX91M CONTROL CARD ERROR >UPDTXXX NOT ASSIGNED * * A2731850 

* * AX92M UPDATING ERROR, CANNOT CONTINUE * * A2731860 

* ***********5***************^*******************5f** * A2731870 

* - PROGRAM INTERRUPTED BEFORE NORMAL END AT ERROR DETECTION * A2731680 

* - CORRECT ERRONEOUS DEV360 OR DEVSUP CARD ( UPDTOLD , ..NEW,.. CORR ) * A2731890 

* - RESUME UPDATING * A2731900 

* * A2731910 

* 3 **************************************** * A2731920 



* * AX92W UPDATING ERROR, CANNOT CONTINUE * * A2731930 
x xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx x A2731940 

* - PROGRAM INTERRUPTED BEFORE NORMAL END AT ERROR DETECTION * A2731950 

* - 2 CAUSES POSSIBLE (IN BOTH CASES, UPDATING HAS TO BE RESUMED) * A2731960 

* -EITHER- AN ERROR ON A UNIT HAS BEEN INDICATED TO PRINTER- * A2731970 

* KEYBOARD BY THE CONTROL-PROGRAM, AND THE OPERATOR HAS * A2731980 

* ANSWERD 'STOP' * A2731990 

* -OR- CATASTROPHIC ERROR HAS BEEN DETECTED BY THE UPDATING * A2732000 

* PROGRAM * A2732010 

* - (REFER TO 'CATASTROPHIC ERROR MESSAGES 1 LISTING ) * A2732020 

* * A2732030 

* 4 xxxxxxx*xxxxxx***s**x**?*xx*x**xxxxxxxxxxx* i * A2732040 

* * AX90A END OF UPDATING * * A273205G 

* * AX93W POSSIBLE UPDATING ERROR DETECTED * * A2732060 
x xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx * A2732070 

* - THE PROGRAM HAS BEEN EXECUTED TO DATA END * A2732080 

* - ERRORS HAVE BEEN DETECTED DURING PROCESSING * A2732090 

* - (REFER TO 'ERROR MESSAGES - AT FILE LEVEL* ) * A2732100 

* - WHEN ERROR HAS BEEN FOUND, CHECK IF UPDATING IS CORRECT, * A2732110 

* OTHERWISE CORRECT ERROR AND RESUME UPDATING. * A2732120 

* * A2732130 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2732140 

EJECT A2732I50 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A2732I60 

, * * A2732170 

' * PRINTER INFORMATION MESSAGES - NORMAL FONCTIONNING * A2732180 

* ( SEE 'END OF JOB' - 1ST CASE ) * A2732190 

* * A2732200 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx A273221G 
x * A2732220 

* 1 AT START OF A FILE PROCESSING * A2732230 

* * A2732240 

* XXX*X*XXXXX**XXX*SXXXX*XXX*X*XXXXXXXXX x A2732250 

* * / UPDATE (CARD-IMAGE) * * A2732260 

* * UP13I THE NEXT FILE WILL BE COPIED * * A2732270 

* 9Hf^^^*9Bf^^^»^*»»^^5f»*»)(*^*^»** * A27 32280 

* - ALL MODULES OF THE FILE WILL BE COPIED , TAPE-MARK INCLUDED * A2732290 

* * A2732300 

* * A2732310 

* * UP12I THE NEXT FILE WILL BE DELETED. ITS FIRST C5 IS XXXX * * A273232Q 

* - NONE OF THE MODULES (CONTROL-SECTIONS) OF THE FILE WILL BE * A2732340 

* COPIED ON THE NEW TAPE. THE TAPE-MARK IS NOT COPIED * A2732350 

* * A273236G 
x xxx s x s xxxx*xxxxx**xxxxxxxxxxxxxxxxxxxxxx**xxx*x x A2732370 

* * / UPDATE (CARD-IMAGE) * * A2732380 

* * UP14I (NOT)ALL CS LISTED. THE 1ST CS IS XXXX * * A2732390 
x xxxxxxx**x**#xxx*xxxx*xx*xxx***xxx«*xxxx*xxx**x x A2732400 

* - A CORRECTION, TO ONE OF THE MODULES OF THE FILE STARTING BY * A2732410 

* THE MODULE XXXX, IS REQUESTED BY AN RIS CARD * A2732420 

* * A2732430 
x x xx x x xx x xxxx xxxxxxxxxxxxxxxxxxxxxxsxxxxxx x A2732440 

* * UP15I ALL OLD FILES HAVE BEEN TREATED * * A2732450 
x xxxxx**xx*xxs#xxxxxxxxsxxxxxxx*xxxxxxxxxx x A27 32460 

* - THE LAST TAPE MARK OF UPDTOLD HAS BEEN READ. THE ONLY * A2732470 



* ACCEPTABLE TYPE OF CORRECTION 15 THEN THE INSERTION OF A NEW * A2732480 

* FILE AT TAPE END. * A2732490 

* * A2732500 
************************************ A2732510 

EJECT A2732520 
************* CONTINUED ***************** A2732530 

* * A273254Q 

* 2 DURING A FILE PROCESSING (CORRECTIONS REQUESTED BY RIS CARDS ) * A2732550 

* * A2732560 

* * UP24I THE NEXT CS,XXXXXXXX WILL BE COPIED * * A2732580 

* ******************************************^ * A2732590 

* - THE OLD HODULE WHOSE THE 1ST RECORD IS IDENTIFIED BY XXXXXXXX * A27326Q0 

* MILL BE COPIED ON THE NEW TAPE. NO CORRECTION REQUEST HAS * A2732610 

* BEEN HADE FOR THIS HODULE. LISTING OF ALL ITS RECORDS WILL * A2732G20 

* BE PRINTED IF THE CURRENT / UPDATE CARD REQUESTS IT. * A2732630 

* * A2732640 

* *********** **»>f**»****»********************x********^** * A2732650 

* * £is (CARD IMAGE) * * A2732669 

* * UP19I (REPLACE, INSERT, SUPPRESS OR NUMBERING) REQUEST * * A2732670 

* - A CORRECTION IS REQUESTED FOR A HODULE AND ALL ITS NEW RECORDS* A2732690 

* WILL BE PRINTED * A2732700 

* * A2732710 

* 3 AT THE END OF FILE PROCESSING * A2732720 

* * A2732730 

* ********************************* * A2732740 

* * UP23I FILE TREATMENT FINISHED * * A273275D 

* ********************************* * A2732760 

* - NO ERROR HAS BEEN DETECTED DURING PROCESSING OF THIS FILE * A2732770 

* - EXCEPT WHEN THE FILE HAS BEEN DELETED, A TAPE HARK IS WRITTEN * A2732780 

* ON UPDTNEW (AND ON DUPLFILE IF AT LEAST ONE HODULE OF THE * A2732790 

* FILE HAS BEEN DUPLICATED) * A2732300 

* * A2732310 
************************************ A2732820 

EJECT A2732830 
************************************ A273284G 

* * A2732850 

* PRINTER CATASTROPHIC ERROR HE5SAGES (UPDATING IS STOPPED) * A2732360 

* ( SEE f END OF JOB' - 3RD CASE ) * A2732870 

* * A 27 32880 
************************************ A2732890 

* * A2732900 

* *************************************** * A2732910 

* * UP10W FIRST V UPDATE' CARD HISSING * * A2732920 

* *************************************** * A2732930 

* - THE FIRST CARD FROH UPDTCORR IS NOT A / UPDATE CARD * A2732940 

* * A273295D 

* ********************************************* * A273296G 

* * UP11W THE FIRST OLD RECORD IS A TAPE HARK * * A2732970 

* ********************************************* * A2732980 

* - UPDTOLD IS INCORRECT OR IS NOT PROPERLY POSITIONED * A2732990 

* * A2733Q00 

* ********************************* * A 27 33010 

* * UP21W PROGRAM CHECK, LOAD DUHP * * A2733020 



* ^**w*********¥*w***x**%******** * A2733Q30 

* - THE UPDATING PROGRAM HAS BEEN ALTERED ON ITS MEDIA * A2733G40 

* (CARDS OR TAPE)>OR DURING THE LOADING * A273305Q 

* * A273306Q 

* * A2733G7G 

* IN THE ABOVE 3 CASES UPDATING MUST BE RESUMED AFTER CORRECTION * A27330B0 

* * A2733090 

A2733100 

EJECT A2733110 

A2733120 

* * A2733130 

* PRINTER ERROR MESSAGES - » AT FILE LEVEL* * A2733140 

* ( SEE 'END OF JOB* - 4TH CASE ) * A2733150 

* * A2733160 

A2733170 

* * A2733I80 

* A ERROR OR A DISCREPANCY HAS BEEN DETECTED DURING THE TREATMENT * A2733190 

* OF A FILE * A27332GQ 

* THE UP23I MESSAGE IS ACCOMPAGNED BY ONE OR BOTH TYPES * A273321Q 

* OF THE FOLLOWING MESSAGES * A2733220 

* * A2733230 

* 1 * A2733240 

* * I DECREASING OR NON NUMERICAL NUMBER IN MODIF CARD * * A2733250 

* * 0 NEW RECORD NUMBER OVERFLOW (SET TO 1) * * A273326G 

* * N INCORRECT OR OMITTED INITIAL NEH NUMBER * * A2733270 

* * (SET TO PRECEDING NEH NUMBER+1) * * A273328D 

* * D DECREASING OR NON NUMERICAL NUMBER IN OLD RECORD * * A2733290 

* * (IS CORRECTED) * * A2733300 

* * UP23I FILE TREATMENT FINISHED * * A273331G 

* *H«Bf*******^9Bf**#**£************^^ * A2733320 

* - A DISCREPANCY HAS BEEN DETECTED IN THE NUMERIC PART OF A CARD * A2733330 

* OR RECORD IDENTIFICATION * A273334G 

* - THE CORRESPONDING LINE OF THE LISTING CONTAINS THE SAME * A273335Q 

* LETTER ( I>0>N OR D ) * A2733360 

* - ANALYZE THE DISCREPANCY AND, IF NECESSARY, RESUME UPDATING * A2733370 

* * A2733350 

* I THE DISCREPANCY HAS NOT AFFACT THE PROCESSING, BUT IT IS * A2733390 

* RECOHHANDED TO CHECK THE ORDER OF THE MODIFICATION CARD. * A27334QG 

* * A273341G 

* 0 IT IS RECOHHANDED TO RENUMBER THE MODULE USING A LOWER STEP * A273342G 

* NUMBER * A273343G 

* * A273344G 

* N THE PROGRAM HAS DETERMINATED THE NUMBER OF A NEH RECORD TO * A273345G 

* BE WRITTEN IN A MODULE. * A2733460 

* - THIS NUMBER IS * A2733470 

* ~ EITHER-THAT OF AN OLD RECORD TO BE COPIED * A2733460 

* - OR - THE INITIAL NUMBER REQUESTED BY AN RIS CARD * A2733490 

* FOR THE FIRST RECORD RESULTING FROM THE CORRECTION* A2733500 

* TO BE MADE. * A2733510 

* - AND THIS NUMBER EXCEEDS NOT THE NUMBER OF THE PRECEDING * A2733520 

* RECORD. * A2733S30 

* - THE PROGRAM THEN ASSIGNS THE PRECEDING NUMBER*! TO THE * A273354G 

* RECORD TO BE WRITTEN * A273355Q 

* * A2733560 

* D THE PROGRAM ASSIGNS THE PRECEDING NUMBER+1 TO THE RECORD TO * A2733570 



* BE WRITTEN * A2733580 

* * A273359Q 
************************************ A27336G0 

EJECT A2733610 
************* CONTINUED ***************** A2733620 

* * A273363Q 

* * UP22I ERRORS DETECTED IN THIS FILE * * A2733650 

* * UP23I FILE TREATMENT FINISHED * * A2733660 

* ************************************** * $27 33670 

* - AN ERROR HAS BEEN DETECTED IN THE UPDTCORR CARDS * A2733680 

* - ONE OF THE REQUESTED FUNCTIONS COULD NOT BE EXECUTED * A2733690 

* - UPDATING HUST PROBABLY BE RESUMED * A27337C0 

* ~ THE ERROR ITSELF IS INDICATED DURING THE LISTING OF THE FILE * A2733710 

* * A2733720 

* ( REFER TO f ERROR MESSAGES - LEVEL OF CORRECTIONS' ) * A2733730 

* * A2733740 
************************************ A2733750 

EJECT A2733760 
************************************ A2733770 

* * A2733780 

* PRINTER ERROR MESSAGES - LEVEL OF CORRECTIONS * A2733790 

* ( SEE ERROR NESSAGES f AT FILE LEVEL* - 2ND CASE) * A2733S00 

* * A2733810 
************************************ A2733820 

* * A273383Q 

* ******************************** * A2733840 

* * UP16I FIRST RIS CARD HISSING * * A2733850 

* ******************************** * A2733860 

* - AFTER A / UPDATE CARD THE PROGRAM HAS READ A MODIFICATION CARD* A2733870 

* (OTHER THAN / UPDATE OR RIS CARD) * A27335SQ 

* - THE OLD FILE CORRESPONDING TO THE / UPDATE CARD WILL BE COPIED* A2733890 

* - THE MODIFICATION AND RIS CARDS FOLLOWING THIS / UPDATE CARD * A2733900 

* HILL BE PRINTED WITHOUT INVOLVING CORRECTIONS. * A2733910 

* * A273392Q 

* **************************************************************** * A2733930 

* * UP18I THE FUNCTION SPECIFY IN THIS RIS CARD CANNOT BE PERFOR-* * A2733940 

* * MED > AS THE EXPECTED OLD RECORD HAS NOT BEEN FOUND * * A2733950 

* * RIS (CARD-IMAGE) * * A2733960 

* * A2733930 

* - THE PROGRAM HAS READ * A2733990 

* - EITHER - AN RIS CARD REQUESTING AN INSERTION AT THE * A2734000 

* BEGINNING OF A FILE OR OF A MODULE WHOSE FIRST RECORD * A2734Q1G 

* HAS BEEN ALREADY PROCESSED * A2734020 

* - OR - AN RIS CARD RELATED TO A MODULE OF AN OLD FILE, AFTER * A2734G30 

* READING OF ALL THE MODULES OF THIS FILE. * A2734040 

* - OR - AN RIS CARD (RECORDS PROCESSING MODE) RELATED TO A * A2734G5G 

* RECORD OF AN OLD MODULE, AFTER READING OF ALL THE * A2734060 

* RECORDS OF THIS MODULE. * A2734070 

* * A2734030 

* - ALL THE MODIFICATION AND RIS CARDS RELATED TO THE SAME MODULE * A2734G90 

* WILL BE PRINTED WITHOUT INVOLVING CORRECTIONS. * A27341G0 

* * A2734110 
************************************ A2734120 



EJECT 

************ 



CONTINUED 



***************** 



* UP20I END OF CARDS SET>NOT THAT EXPECTED- * * 

* FUNCTION INTERRUPTED * * 

- 1ST CASE - DURING AN INSERTION OR A REPLACING * 

- EITHER - THERE IS NOT A MODIFICATION CARD AFTER A RIS CARD * 

- OR - THE FIRST MODIFICATION CARD DOES NOT CONTAIN THE SAME * 

MODULE IDENTIFICATION AS THAT OF THE RIS CARD (RECORDS* 
PROCESSING HODE) * 

- OR - A KODIFICATION CARD DOES NOT CONTAIN THE SAME IDENTI- * 

FICATION THAT OF THE PRECEDING MODIFICATION CARD * 
(BEWARE OF BLANK CARDS.-.) * 

* 

- 2ND CASE - AFTER THE EXECUTION OF A CORRECTION * 

- EITHER - A MODIFICATION CARD FOLLOWS AN RIS CARD WHICH * 

REQUESTS A SUPPRESSION OR A NUMBERING * 

- OR - THE PROCESSED RIS CARD (MODULE PROCESSING MODE) IS * 

FOLLOWED BY A RIS CARD REQUESTING AN OTHER CORRECTION * 
ON THE SAME MODULE. * 

* 

- IN ALL ABOVE CASE * 

- THE REMAINDER OF THE PROCESSED OLD MODULE WILL BE * 
COPIED ON THE NEW TAPE * 

- THE RIS AND MODIFICATIONS CARDS RELATED TO THIS MODULE WILL* 
BE PRINTED WITHOUT INVOLVING CORRECTIONS * 



* UP17I INVALID RIS CARD, CORRECTION IGNORED * 

* RIS (CARD IMAGE) * 



A RIS 



OR 
OR 



AN RIS CARD IS INVALID IF 

- EITHER - BOTH MODULE IDENTIFICATIONS CONTAINED IN 
CARD (RECORDS PROCESSING MODE) ARE DIFFERENT * 
THE NUMBER OF THE 2ND IDENTIFICATION FIELD IS LESS * 
THAN THE NUMBER OF THE 1ST ONE * 
ONE OF THE FOLLOWING FIELDS IS NOT ENTIRELY NUMERICAL * 

OR BLANK * 
-NUMBER IN THE 1ST IDENTIFICATION FIELD * 
-NUMBER IN THE 2ND IDENTIFICATION FIELD * 
-INITIAL NUMBER * 
-NUMBERING STEP * 

- OR - THE f FUNCTION REQUEST CODE' IS DIFFERENT FROM R,I>S>N * 

* 

IN ALL ABOVE CASES THE RIS AND MODIFICATION CARDS RELATED TO * 
THE SAME MODULE AS THAT OF THE INVALID RIS CARD WILL BE PRINTED * 
WITHOUT INVOLVING CORRECTIONS * 

* 

*********************************** 

EJECT 



ERROR CODES AND CORRESPONDING MESSAGES 



PRINTER 



A2734130 
A2734140 
A2734150 
A273416G 
A273417G 
A273413G 
A273419G 
A27342Q0 
A27342I0 
A273422G 
A273423Q 
A2734240 
A273425Q 
A2734260 
A2734270 
A273426G 
A2734290 
A273430Q 
A2734310 
A2734320 
A2734330 
A2734340 
A2734350 
A2734360 
A2734370 
A2734380 
A2734390 
A2734400 
A2734410 
A2734420 
A2734430 
A2734440 
A2734450 
A273446Q 
A273447Q 
A27344S0 
A2734490 
A2734500 
A2734510 
A2734520 
A273453G 
A2734540 
A2734550 
A2734560 
A2734570 
A2734560 
A2734590 
A2734600 
A2734810 
A2734620 
A2734630 
A273464G 
A2734650 
A2734660 
A2734670 



COD 


EQU 


2 CODE LENGTH 


BI»BO 


A273468Q 






STORAGE OF ERRORS CODES 




A273469Q 


ERTBG 


BS 


!£>C * 


XXXXXDNO* 




A27347G0 




BS 


2C * 


I* 






A273471Q 

» Eft— * w * r %£• w 






MESSAGES 








A2734720 


KSGTBL 


DC 


C f I * 








A2734730 




DC 


C T DECREASING OR NO* 








A2734740 




DC 


r»M NUMERICAL NUMB* 








A2734750 




DC 


C f ER TM HOD IF CARD* 








A273476Q 




DC 


C* * 








A273477G 




DC 


C* * 








A2734780 


MSGTBM 


DC 


C* 0 * 








A2734790 




DC 


r*um RECORD NUMBE* 








A27348O0 




DC 


C*R OVERFLOW * 








A2734810 




DC 


C f (SET TO 1) f 








A2734820 




DC 


C f * 








A2734830 




DC 


c* * 








A2734849 


MSGTBN 

1 • w w « U#* V 


DC 


r» m f 








A2734S50 




DC 










A2734B60 

fib* w • w W w 




DC 


r f TTFH TWTTTAI IMFU* 








A273487G 




DC 


ft KJIB4RFPf CTET Tft P" 

L. riUi:ULi\wL 1 Iv P 








A2734880 

M4.I w T w w w 




DC 










A27 34890 




DC 










A?734900 


MSGTBP 


DC 


CD 1 








A273491Q 




DC 


C* DECREASING OR NO* 








A773492Q 




DC 


CN NUMERICAL NUMB T 








A7734930 




DC 


C f ER IN OLD RECORD * 








A2734940 




DC 


C f (15 CORRECTED) * 








A2734950 




DC 


C* * 








A2734960 




EJECT 










A2734970 




*uxnny 


TEXT* 








A2734980 


SIMCOD 


DC 


C f A2* 




BEFORE CONSOLE MESSAGE 


A2734990 


UPDCOD 


DC 


CUP* 




BEFORE PRINTER MESSAGE 


A273500Q 














A2735010 


* PRINTER 


INFORMATIVE MESSAGES 






A2735020 














A2735030 


HESS03 


DC 


FL1*39* 








A273504D 




DC 


C*24I THE NEXT CS,* 








A2735050 




DC 


C*XXXXXXXX>WILL BE* 








A2735QG0 




DC 


C* COPIED* 








A2735070 


MESS22 


DC 


FLl'lS' 








A2735C80 




DC 


C*19I INSERT REQUE* 








A2735090 




DC 


C*ST* 








A2735100 


ME5523 


DC 


FLI f I9* 








A2735I10 




DC 


C*191 REPLACE REQU* 








A2735120 




DC 


C*EST* 








A2735130 


MESS24 


DC 


FLl'2Q f 








A2735140 




DC 


C*19I SUPPRESS REQ f 








A2735150 




DC 


C'UEST* 








A2735160 


HESS25 


DC 


FL1*21* 








A2735170 




DC 


C*191 NUMBERING RE* 








A273518G 




DC 


C f QUEST* 








A2735190 


HE5S27 


DC 


FLl f 27 f 








A2735200 




DC 


C*231 FILE TREATME* 








A2735210 




DC 


C f NT FINISHED* 








A2735220 



HE5S29 


DC 


FLl f 41* 




A2735230 




DC 


C*14I XXX ALL CS * 




A2735249 




DC 


C*LI5TED-15T CS IS* 




A2735250 




DC 


C* XXXXXXXX* 




A273526Q 


ME5S30 


DC 


FLl'58* 




A2735270 




DC 


C*12I THE NEXT FIL* 




A 27 35 280 




DC 


C f E HILL BE DELETE* 




A2735290 




DC 


CD. ITS FIRST CS I f 




A273530Q 




DC 


C f S XXXXXXXX* 




A273531Q 


HE5532 


DC 


FL!*35' 




A273532Q 




DC 


C f 15I ALL OLD FILE" 




A2735330 




DC 


C f S HAVE BEEN TREA* 




A2735340 




DC 


C*TED* 




A2735350 


HESS33 


DC 


FLi*32* 




A27353&0 




DC 


C*13I THE NEXT FIL* 




A273537D 




DC 


C*E HILL BE COPIED 1 




A2735380 




EJECT 






A2735390 










A27354Q0 


* PRINTER 


ERROR MESSAGES 


(CONTINUE) 


A2735410 










A?735A2G 




nr 


FLl'26* 




A2735438 




nr 


C f 16I FIRST RIS CA f 




A2735440 




nr 


C f RD HISSING* 




A2735450 


CrvTIL.UO 




FL1'39* 




A273536Q 




DC 


C*!7F 




A273547G 




DC 


C f * 




A2735480 




DC 


C f INVALID RIS CARD 1 




A273549G 




DC 


C* CORRECTION IGNO 1 




A2735500 




DC 


C'RED* 




A27355I0 


ERHE07 


DC 


FLl f 103* 




A2735S20 




DC 


CM 81 THE FUNCTION* 




A2735530 




DC 


C f SPECIFY IN THIS' 




A27355A0 




DC 


C f RIS CARD CANNOT* 




A2735550 




DC 


C f BE PERFORMED, AS* 




A2735560 




DC 


C* EXPECTED OLD RE f 




A273557G 




DC 


C*CORD HAS NOT BEE* 




A273558G 




DC 


C*N FOUND ' 




A2735590 


ERHE03 


EQU 


ERHEG7 




A2735600 


ERHE09 


EQU 


ERHE07 




A2735G10 


ERME10 


EQU 


ERHEG7 




A2735620 


ERHE12 


DC 


FLl f 59* 




A273563G 




DC 


C20I END OF CARDS* 




A27356^0 




DC 


C* SET, NOT THAT EX* 




A2735G50 




DC 


C f FECTED . FUNCTION * 




A27356&0 




DC 


C* INTERRUPTED* 




A2735&7G 


ERME14 


EQU 


ERHEI2 




A2735660 


ERME26 


DC 


FLl f 32 f 




A2735690 




DC 


C'221 ERRORS DETEC T 




A2735700 




DC 


C f TED IN THIS FILE* 




A2735710 




EJECT 






A2735720 










A2735730 


* PRINTER 


ERROR MESSAGES 


(STOP) 


A273574Q 










A2735750 


ERHEQ2 


DC 


FL1*29' 




A2735760 




DC 


C'lOW 1ST / UPDATE r 




A273577D 





DC 


r* CARD MISSING 1 




A2735780 

rti.f <jj( UU 


ERME05 


DC 






A2735790 




DC 


r m m iqt oi n prrn T 

w lin i»j f ulu r\i_s-v 




A273^80G 




DC 


V* I\U A*J irti L- I fr1s\l\ 




A273^8TG 


ERME21 


DC 


FLl f 27 f 




A27358?Q 




DC 


C*21H PROGRAM CHEC* 




A273583Q 




DC 


r»K LOAD DUMP* 




A27358$Q 




EJECT 






A273585Q 

lit-* \J _* LJ _> V> 










A273586G 


* PRINTER AND 


CONSOLE INFORMATIVE MESSAGES 




A2735870 










A?735B8Q 


HE5534 


DC 


FL1*20* 




A2735390 




DC 


C*9GA END OF UPDAT* 




A27359G0 




DC 


C * ING * 




A2735910 




DC 


X* 15* 




A2735920 




EJECT 






A2735930 










A2735940 


* PRINTER AND 


CONSOLE ERROR MESSAGES 


(STOP) 


A2735950 










A2735960 


ERME28 


DC 


FLl'35 f 




A2735970 




DC 


C*92M UPDATING ERR 1 




A2735980 




DC 


C f OR, CANNOT CON TIN* 




A2735990 




DC 


CUE* 




A2736000 




DC 


X'15 T 




A2736010 


ERHE37 


DC 


FLl f 37 f 








DC 


r»9ill POSSIfcl F HPD V 

v» 7 «Jry rvuJluuu uru 




A273bQ3Q 




DC 






A773A04Q 




DC 






A273A05G 




DC 


X* 15 5 




A27360&0 

?«<£.* «JOwwW 




EJECT 






















CONSOLE ERROR MESSAGES 


(STOP) 


A2736090 










A2736100 


ERME1B 


DC 


FLl f 61 f 




A273G11Q 




DC 


C f 91W CONTROL CARD* 




A2736120 




DC 


C f ERROR, XXXXXXXX ' 




A2736130 




DC 


C'NOT ASSIGNED, CAN 1 




A273G14Q 




DC 


C f N0T CONTINUE* 




A2736150 




DC 


X*15 f 




A2736160 

\ W$mm< W W J- W W 




EJECT 






A273&17Q 




END 






A2736180 




. AOPTN 


CSlSSRiE_. 




^^^^ 


A2EB 


TCTCE^ EDITOR y-^U^— — - 




V1L2 A2ED0015 


EDITOR 

******** 


START 


0 




A2E00020 

f**^9*^**^*^9i^* A2E00025 








* 








* A2E0003D 


* 




SIM20 EDITOR 




* A2E00035 






INTRODUCTION 




* A2E00040 


* 








* A2E00045 


* THE 5IH20 EDITOR IS A PROGRAM WHICH > FOR A GIVEN 


SYSTEM/360 CONFI- * A2E00Q50 



* GURATION AND A GIVEN 1620 CONFIGURATION, EDITS THE 1620 SIMULATOR * A2E00055 

* TO INCLUDE ONLY THE ROUTINES REQUIRED TO SIMULATE THE DESIGNATED * A2E00060 

* 1620 CONFIGURATION. * A2E00065 

* * A2E00070 
^ THE EDITOR TAKES INTO ACCOUNT THE 1620 CONFIGURATION TO BE SIMU- * A2E00375 



LA TED, THE SYSTEM/360 CONFIGURATION ON WHICH THE SIMULATOR IS TO 
BE RUN, AS WELL AS ALL THE FEATURES AND DEVICES REQUIRED BY THE 
SIMULATED 1620. 

USING CONTROL CARDS, THE EDITOR SELECTS FROM THE SIMULATOR ONLY 
THOSE ROUTINES WHICH ARE NEEDED TO SIMULATE THE GIVEN 1620 CONFIG- 
URATION. 

IT EDITS THE SYMBOLIC VERSION OF THE SIMULATOR. THEREFORE, IT IS 
NECESSARY TO ASSEMBLE THE EDITED PROGRAM. 

THE SIMULATOR CAN BE ON CARDS OR ON PAPER TAPE, AND THE EDITED 
PROGRAM WILL BE ON THE SAME MEDIUM AS THE ORIGINAL SIMULATOR. THE 
EDITOR IS ALWAYS ON CARDS AND IS RELOCATABLE. 

CONTROL CARDS 

THERE ARE FIVE DIFFERENT TYPES OF CONTROL CARDS, DEFINED AS FOL- 
LOWS = 
1) CPU1 

THIS CONTROL CARD DEFINES THE MODEL AND THE CORE STORAGE CAPAC- 
ITY OF THE 1620 TO BE SIMULATED. ONLY ONE CPU1 CARD IS REQUIRED 
FOR EACH EDITOR RUN. IF THERE ARE SEVERAL CARDS, ONLY THE LAST 
ONE ENCOUNTERED WILL BE TAKEN INTO CONSIDERATION. 



* 

* 

vr v v \y vr \f 



FORMAT = 



COLUMNS 3 TO 17 CONTAIN = CPU1 1620/X,YYK 

WHERE X = 1 OR 2 - 1620 MODEL TO BE SIMULATED 
YY = 20, 40 OR 60 - 1620 CORE STORAGE 
(IN THOUSANDS OF POSITIONS) 



2) CPU2 

THIS CONTROL CARD DEFINES THE MODEL AND THE MAIN STORAGE CAPAC- 
ITY OF THE SYSTEM/360 TO BE USED. ONLY ONE CPU2 WRD IS REQUIRED 
FOR EACH EDITOR RUN. IF THERE ARE SEVERAL CARDS, ONLY THE LAST 
ONE ENCOUNTERED WILL BE TAKEN INTO CONSIDERATION. 



EJECT 



COLICS 
COLUMNS 

WHERE XX 
YY 



FORMAT - 

3 TO 17 CONTAIN = CPU2 360/XX,YYK OR 
3 TO 18 CONTAIN = CPU2 36G/XX,YYYK 

- 30 OR 40 - SYSTEM/360 MODEL USED 

32, 64 - SYSTEM/360 MAIN STORAGE CAPACITY 
YYY = 128 AND ABOVE - SYSTEM/360 MAIN STORAGE 
CAPACITY 

3) FEATURE 

THIS CONTROL CARD IS NOT REQUIRED IF THE PROGRAM TO BE EDITED 
DOES NOT USE ANY NON-STANDARD FEATURES. IF SUCH FEATURES ARE US- 
ED, EACH ONE REQUIRES A CARD. 



FORMAT 



COLUMNS 3 TO 9 OF EACH CARD CONTAIN = FEATURE 
COLUMN 10 CONTAINS A BLANK 
COLUMNS 11 TO 15 DEPEND ON THE FEATURE USED, 



I.E. 



A2E00080 
A2E00085 
A2E00090 
A2E00095 
A2E00100 
A2E00105 
A2E00110 
A2EG0115 
A2EG0120 
A2E00125 
A2E00130 
A2E00135 
A2E00140 
A2E00145 
A2EQ0150 
A2E00155 
A2E00160 
A2E00165 
A2E00170 
A2E00175 
A2E00180 
A2E00185 
A2E00190 
A2EG0195 
A2E00200 
A2E00205 
A2E00210 
A2E00215 
A2E00220 
A2E0Q225 
A2E00230 
A2E00235 
A2E00240 
A2E00245 
A2E0Q250 
A2E00255 
A2E00260 
A2E0D265 
A2E00270 
A2EG0275 
A2E00280 
A2E00285 
A2E00290 
A2E00295 
A2E00300 
A2E00305 
A2E00310 
A2E00315 
A2E00320 
A2E00325 
A2E00330 
A2E00335 
A2E00340 
A2E00341 
A2E00345 



* INDEX = 1620 HODEL 2 INDEX REGISTERS * A2EGG350 

* INDAD = 1620 HODEL 1 INDIRECT ADDRESSING * A2E00355 

* FLOAT = FLOATING-POINT ARITHMETIC * A2E00360 

* TRANS = ADDITIONAL INSTRUCTIONS * A2E00365 

* DIVID = AUTOMATIC DIVIDE * A2E00370 

* DI5KV = I/O PROGRAM HUST BE DISK-RESIDENT (FOR IN- * A2E00375 

* STANCE HODEL E WITH ALL DEVICES) * A2E003S0 

* 144LN = FOR A 1443 WITH 144 POSITIONS OF PRINT * A2E00385 

* * A2E00390 

* * A2E00395 

EJECT A2E004G5 

* * A2E00415 

* 4) DEVICE * A2E00420 

* THIS CONTROL CARD IS REQUIRED FOR EACH DEVICE USED BY 1620 . * A2E00425 

* EACH CONTROL CARD IS USED TO CREATE CONTROL BLOCKS FOR CONTROL * A2E00430 

* PROGRAM . * A2E00435 

* TWO VERIFICATIONS ARE MADE = * A2E00440 

* 1) IF TWO DEVICES ARE SAME DEVICE ADDRESSES THE 2ND * A2E00445 

* IS IGNORED * A2EG0450 

* 2) THE TYPE OF DEVICE/360 ARE CHECKED EX = 2540R * A2EQQ455 

* NO VERIFICATION ARE MADE ON CHANNEL , DEVICE ADDRESS * A2E0C460 

* OF EACH DEVICE * A2E0G465 
. * IF AN ERROR OCCURS SIMULATOR WILL BE NOT AVALAIBLE * A2E0G470 
' * * A2EGQ475 

* FORh&T = * A2E00480 

* COLICS 3 TO 8 = DEVICE * A2EG0485 

* COLUMN 9 CONTAINS A BLANK * A2E00486 

* COLUMNS 10 TO 15 CONTAIN THE 1620 DEVICE (I.E. * A2E00490 

* 1622R, r 1622 CARD READER * A2EG0495 

* 1622P, = 1622 CARD PUNCH * A2EG05G0 

* 1443W, = 1443 PRINTER * A2E0G5G5 

* 1621R, = 1621 PAPER TAPE READER * A2E0G510 

* 1624P = 1624 PAPER TAPE PUNCH * A2E0G515 

* 1311N, = 1311 DISK STORAGE DRIVE * A2E00520 

* 162GC, = 1052 TYPEWRITER * A2EGG525 

* * A2EG0530 

* COLUMNS 16 TO 29 CONTAIN THE SYSTEM/ 360 DEVICE , THE CON-* A2EG0535 

* SOLE AND THE STANDARD ADDRESS USED BY THE SIMULATOR * A2EG0540 

* EX = 1442R,Q>X f G0A' = 1442 CARD READER * A2E00545 

* 254GR>0,X f 00C f = 2540 CARD READER * A2E00550 

* 252QR,0,X f QQC f = 2520 CARD READER * A2E00555 

* 2501R>Q,X'G0C' = 2501 CARD READER * A2E00560 

* 1442P,G,X f G0A f = 1442 CARD PUNCH * A2E00565 

* 254GP,G > X f GGD ? = 2540 CARD PUNCH * A2E00570 

* 2520P>0,X'0GD f = 2520 CARD PUNCH * A2E00575 

* THESE THREE LAST DEVICES ARE ALSO USED FOR A PAPER TAPE PUNCH IF * A2E0G580 

* CARD PUNCH DEVICE DOES NOT EXIST. * A2E0G585 

* 144314, 0,X' 0GB f = 1443 PRINTER * A2E00590 

* 1403W,0,X f 0GE f = 1403 PRINTER * A2E00595 

* 2671R,0,X'Q04 f = 2671 PAPER TAPE READER * A2EG0600 

* ....P,.,X f ...< = PAPER TAPE PUNCH UNDETERMINED * A2EG0605 

* 2311N,C,X f CMM f = 2311 DISK STORAGE DRIVE * A2EGG610 

* 1052T,0,X f 009 f = 1052 TYPEWRITER * A2E00615 



* * A2EGQ62Q 

* NOTE = IF CARD READER/PUNCH 15 PRESENT AND IF PAPER TAPE (VERSION * A2EG0621 

* CARD) IS NEEDED, THIS NEXT CARD IS USED = * A2E00622 

* / DEVICE 1G21P * A2EG0b23 

* / IN COLUf^ 1 * A2E8G624 

* BLANK IN COLUMN 2 * A2E0G625 

* DEVICE IN COLlimS 3 TO B * A2E0Gb26 

* BLANK IN COLUMN 9 * A2EG0627 

* 1621P IN COLUMNS 10 TO 14 * A2E00628 

* BLANKS IN OTHER COLUMNS * A2E00629 

* * A2E00630 
#**^*#9f##*#*******##*#&9B$**##s#*^ A2E00631 

EJECT A2EGG632 

A2E0G635 

* * A2EG0b4G 

* 5) START * A2EG0645 

* THIS CONTROL CARD IS ALWAYS REQUIRED AND IS THE LAST ONE. * A2E00650 

* * A2E0GG55 

* FORMAT = * A2EG0660 

* COLlimS 3 TO 7 CONTAIN START * A2EG06S5 

* * A2E00b79 

* ALL CONTROL CARD DECKS MUST RESPECT THE ABOVE LISTED ORDER OF CARD * A2E00675 

* TYPE. NO GIVEN CARD ORDER NEED BE RESPECTED WITHIN ONE TYPE OF * A2EGGbO0 

* CARDS. * A2EG0685 

* EXAMPLE = THE FIRST CARD MUST BE A CPU1 CARD, FOLLOWED BY CPU2, * A2EGG&9Q 

* FEATURE, DEVICE, AND START CARDS, IN THAT ORDER. * A2E0G695 

* * A2EG07GD 

A2EG07G5 





EJECT 




A2EGG710 








A2E00715 






WORKING REGISTERS 


A2E00720 






EQUIVALENCE FOR CODE CONDITION OF BRANCHES 


A2E0G725 








A2E0073Q 








A2E00735 




SPACE 


2 


A2EQ0740 




SPACE 


2 


A2EGG745 


BE 


EQU 


6 


A2EG0750 


BH 


EQU 


2 


A2E0G755 


B 


EQU 


15 


A2E0G760 


BR 


EQU 


15 


A2E0G7G5 


BO 


EQU 


1 


A2EG0770 


BZ 


EQU 


6 


A2EG0775 


BL 


EQU 


4 


A2EG0780 


BNE 


EQU 


7 


A2EGG735 


NOP 


EQU 


0 


A2E0G790 


R2 


EQU 


2 


A2EG0795 


Rl 


EQU 


1 


A2EG0600 


R3 


EQU 


3 


V1L2 A2E0G5G2 


WR1 


EQU 


10 


A2EGG805 


WR2 


EQU 


11 


A2E00S10 


WR3 


EQU 


13 


A2E0G815 


WR4 


EQU 


14 


A2EG0020 


WR5 


EQU 


5 


A2EGG525 




EJECT 




A2E0083D 


BEGIN 


BALR 


7*0 


A2EGG535 





USING *,7 




A2E00840 




USING *+4G%,B 




A?EG0845 




I & 






A2EG085G 




HPv 


R A 




A2E00Q55 




l_ri 


O > KiKOy/ ) 














A2EG0365 










A2EQ0S7D 






PROGRAM TNTTTAf T7ATTHN 




A2EGGS75 










A2E00860 


RETRY 


hvi 


BEVTAB,KTF f 




A2E00S55 




HVI 


DEVSHT»X*FF f 




A2E00S90 




HVI 


FEATAB>X f FF f 




A2E00895 




HVI 


IOEUFF>X f G0 f 




A2ED0900 




HVC 


I0BUFF*1(12Q)>I0BUFF 




A2E00905 




HVI 


CP1A,X T G0» 




A2E00910 




HVC 


CP1A*1(11),CP1A 




A2E00915 




EJECT 






A2EGG920 










A2E0Q925 










A?EGG93Q 




READ CONTROL INFORMATION 




A2EGG935 










A2EGG940 










A2E0G945 


* 








A2ED095G 


READ1 


HVI 


I0BUFF~2>X f 4Q f 




V1L1 A2EG0355 




HVC 


IOBUFF-l(80)»IOBUFF-2- 




V1L1 A2EG095& 




BAL 


15 > READ 


SEND A READ COMMAND 


V1L1 A2E00957 




CLC 


I0BUFF-2(2)>CW 


COMPARE IDENTIFICATION 


A2EGG960 




BC 


7>ER1A 


NOT RIGHT BRANCH 


A2E00965 










A2EG0970 






COMPARE CONTROL INFORHATION WITH DIFFERENT TABLES 


A2EGG975 










A2EGG980 










A2EG09S5 










A2EGG99D 




LA 


14R2,CPU1 


LOAD FIRST TABLE 


A2E0G995 




LA 


NRU15 




A2EG100Q 




BAL 


15>C0HPAR 


COMPARE CONTROL CARD 


A2E01005 




BC 


15>CP1 


IT IS A CPU1 CARD 


A2EG1010 




LA 


HR2,CPU2 


LOAD SECOND TABLE 


A2EG1015 




LA 


HR"1,16 




A2EG1G2D 




BAL 


15>C0MFAR 


COMPARE CONTROL CARD 


A2EG1D25 




BC 


15,CP2 


IT IS A CPU2 CARD 


A2EG1D30 




LA 


I4R2»FEAT 


LOAD THIRD TABLE 


A2E01G35 




LA 


muu 




A2E01040 




BAL 


15>C0HPAR 


COHPARE CONTROL CARD 


A2EGIG45 




BC 


15»FEAT1 


IT IS A FEATURE CARD 


A2E01G5G 




LA 


NR2, DEVICE 


LOAD FOURTH TABLE 


A2E01G55 




LA 






A2E01060 




BAL 


15>C0BPAR 


COHPARE CONTROL CARD 


A2E01GG5 




BC 


15, DEVI 


IT IS A DEVICE CARD 


A2E0107G 




LA 


MR2, START 


LOAD FIFTH TABLE 


A2EG1G75 




LA 


MR1»5 




A2E01G8G 




BAL 


15>C0HPAR 


COHPARE CONTROL CARD 


A2EG1G85 




BC 


15,START1 


IT IS A START CARD 


A2EG1G90 


ER1A 


BAL 


15>NESSAG 




A2EG1G95 




BC 


YL2CPASTR) 


SEND HESSAGE INV. CARD 


A2E01100 





BAL 


15,HESSAG 




V1L1 A2E01105 




DC 


Y(NCONTI) 




V1L1 A2E01110 




BC 


15,RAI12 


mil STATE 


V1L1 A2E01115 


CTH 


DC 

EJECT 


CV f 




A2EG1116 
A2E01I17 










A2E01120 






CONTROL INFORMATION IS 


* START* 


A2E01125 






TREATMENT BEGINS 




A2E0113Q 










A2E01135 


START1 


5R 


HR1,NR1 




A2EQ114D 




IC 


NR1,CP2AH 




A2E01145 




BCTR 


NR1,0 




A2E01150 




STC 


NR1,CP2A+1 




A2E01155 




IC 


NR1,CP2A*2 




A2EG116G 




BCTR 


HR1>0 
NR1,0 




A2EG1I65 




BCTR 




A2E01170 




STC 


14R1,CP2A*2 


IS 1620 CPU SIZE HIGHER 


A2E01175 




CLC 


CP2B(3),CP2A 


THAN 360 CPU SIZE - 12K 


A2E01180 




BC 


BH,CPER 


YES, BRANCH 


A2EQ1185 




HVC 


CBITQ),CPlA+5 


HOVE MODEL 


A2E01190 




LA 


NRl,OEVSHT 


SEARCH FOR v 13110* DEVICE 


A2E01195 


AAA33 


CLI 


0(URl),X T FF f 


IS TABLE EXHAUSTED 


A2E01200 




BC 


BE,AAA55 


YES, BRANCH 


A2E01205 




CLC 


0(5,WR1),A13110 


COMPARE IF DISK ARE PRESENT 


A2E01210 




BC 


BE,AAA22 


YES > BRANCH 


A2E01215 




LA 


KR1»5(UR1) 


NO, LOOP 


A2E01220 




BC 


15,AAA33 




A2E01225 


AAA22 


LA 


KR1,FEATAB 


SEARCH FOR 'BISKV* 


A2E01230 


AAA44 


CLI 


OCNRI) >X f FF T 


IS TABLE EXHAUSTED 


A2E01235 




BC 


8,START3 


YES, BRANCH 


A2E01236 




CLC 


G(5,I4RI)»BISKV 


IS f DISKV* PRESENT 


A2EQ1240 




BC 


BE > SEARCH 


YES, BRANCH 


A2EQ1245 




LA 


14RI,5(KR1) 


NO, INCREMENT 14R1 BY FIVE 


A2E0125Q 




BC 


15,AAA<tt 


LOOP 


A2E01255 


AAA55 


HVC 


0(5,MR1),NOOSK 


HOVE NODISK 


A2E01260 




HVI 


5(URl),X'FF f 


SET END OF TABLE 


A2EG1265 




BC 


15, SEARCH 


BRANCH 


A2E01270 


START3 


BR 


HR4,NR4 


MR4=0 


A2E01275 




SR 


MRS, MRS 


NR5=0 


A2E01276 




LA 


MR2,DEVSHT 


SEARCH FOR DEVSHT TABLE 


A2E01277 


EDX1A 


LA 


14R3,SEATB 


WR3=A(SEATB) 


A2E01278 




CLI 


0(MR2),X f FF f 


IS TABLE EXHAUSTED 


A2E01279 




BC 


8,EBX3A 


YES, BRANCH 


A2E01280 


EDX2A 


CLC 


0C5,14R2),0(WR3) 


COMPARE ARG NITH TABLE 


A2EQ1281 




BC 


8 » ADD TAB 
WR3,6(NR3) 


EQUAL BRANCH 


A2E01282 




LA 


INCREMENT WR3 BY 6 


A2E01283 




BC 


15,EDX2A 


LOOP 


A2E01284 


ADDTAB 


IC 


NR4,5(HR3) 


INSERT INCREMENT IN NR4 


A2E01285 




AR 


I4R5>14R4 


ADD W5 AND MR§ 


A2E01286 




LA 


I4R2,5(HR2) 


INCREMENT NR2 BY 5 


A2E01287 




BC 


15,EDX1A 
MR2>FEATAB 


BRANCH 


A2E0I288 


EDX3A 


LA 


LOAD NR2 WITH FEATAB 


A2E01289 


EDX6A 


LA 


NR3,SEATB 


LOAD HR3 UITH SEATB 


A2E01290 




CLI 


0(k r R2),X f FF f 


IS TABLE EXHAUSTED 


A2E01291 




BC 


8,EBX4A 


YES, BRANCH 


A2E01292 



EDX5A 


ac 


0(5,WR2),Q(WR3) 


COMPARE ARG WITH TABLE 


A2E01293 




BC 


8>ABTAB1 


EQUAL BRANCH 


A2E01294 




LA 


14R3,6(NR3) 


INCREMENT NR3 BY 6 


A2ED1295 




BC 


15>EDX5A 


LOOP 


A2E01296 


ABTAB1 


IC 


WR4,5(WR3) 


INSERT IN INCREMENT 


A2E01297 




AR 


ms >um 


ADD NR4 AND NR5 


A2E01298 




LA 


NR2>5(HR2) 


INCREMENT UR2 BY 5 


A2E01299 




BC 


15,EDX6A 


LOOP 


A2EG1300 


EDX4A 


LA 


NR4,483 


= 483 MAXIMUM FOR A 32K 


A2E01301 




CR 


NR5,HR4 


IS URS HIGHER THAN LIMIT 


A2E013Q2 




BC 


BH>EDX7A 


YES, BRANCH 


A2E01303 




MVC 


G(5,NR1), NASKV 


HOVE NASKV 


A2E0I304 




HVI 


5(k r Rl),X T FF* 


HOVE END OF TABLE 


A2E01305 




BC 


15, SEARCH 


BRANCH -CONTINUE 


A2E01306 


EDX7A 


CLC 


CP2A(3),K32 


TEST FOR 32K 


V1L2 A2E01307 




BC 


8>EDX7B 




V1L2 A2ED1308 


*EDX7A 


HVC 


0(5»KR1),NISKV 


MOVE NISKV (DELETED) V1L2 A2E01309 




HVC 


0(5>NR1),NISKV 


MOVE NISKV 


V1L2 A2E01310 




HVI 


5(NRl),X f FF f 


MOVE END OF TABLE 


A2ED1311 




BC 


15, SEARCH 


BRANCH - CONTINUE 


A2E01312 


EDX7B 


BAL 


15.MESSAG 


SEND MESSAGE 


V1L2 A2E01313 




DC 


YL2(N0DSKV) 


DISKV NEEDED 


V1L2 A2E01314 




BAL 


R1,READTY 


READ COWiAND 


V1L2 A2E01315 




BC 


B, RETRY 


RETRY 


V1L2 A2E01316 










V1L2 A2E01317 


K32 


DC 


C v 020 f 


CP2A EQUAL 32K-12K 


V1L2 A2E01318 


NODSKV 


DC 


FLl*28 f 




V1L2 A2E01319 




DC 


C f A243A * 




V1L2 A2E01320 




DC 


C'DISKV FEATURE * 




V1L2 A2E01321 




BC 


C f NEEDED* 




V1L2 A2E01322 




DC 


X f 15 f 




V1L2 A2E01323 




EJECT 






A2E01324 


NASKV 


DC 


C'NASKV* 




A2E01325 


SEATB 


DC 


C*3KBAD r 


TABLE FOR LIMIT OF A 32K 


A2E01326 




DC 


XW 


LENGTH 


A2E01327 




DC 


C 1 TRANS f 


ADDITIONAL INSTRUCTIONS 


A2E01328 




DC 


X'15 f 


¥e 


A2E01329 




DC 


C'DIVID' 


DIVIDE 


A2E01330 




DC 


X*2B* 




A2EC1331 




DC 


C* FLOAT* 


FLOATING 


A2E01332 




DC 


X*78* 




A2ED1333 




DC 


C f INDEX* 


INDEX INSTRUCTIONS 


A2EQ1334 




DC 


X*3E f 




A2E01335 




DC 


C*1622R* 


1622 CARD READER 


A2E01336 




DC 


X*1E* 




A2E01337 




DC 


CU622P* 


1622 CARD PUNCH 


A2E01338 




DC 


X*1E* 


* 


A2E01339 




DC 


C*1¥$3M* 


1W3 PRINTER 


A2ED13A0 




DC 


X*41* 




A2E01341 




DC 


C f 1621R* 


1621 PAPER TAPE READER 


A2E01342 




DC 


X*2i* 




A2E01343 




DC 


C*1621P* 


1621 PAPER TAPE PUNCH 


A2EQ1344 




DC 


X*32* 




A2E01345 




DC 


C f 13110 f 


1311 DISK 


A2E01346 




DC 


X*C6* 




A2E01347 





DC 


C f 13111 f 


1311 DISK 2ND 


A2EQ13SB 




DC 


X'G3 f 




A2EG1349 




DC 


C'13112 T 


1311 DISK THIRD 


A2EQ135G 




DC 


X'G3 f 




A2E01351 




DC 


C T 13113 f 


1311 DISK 4TH 


A2EG1352 




DC 


X'G3' 




A2E01353 




DC 


C1&2GC 




A2EQ1354 




DC 


X f QG 9 




A2EG1355 




DC 


C*144LN f 




A2E01356 




DC 


XW 




A2E01357 




DC 


X*FF f 


END OF TABLE 


A2E01358 


SEARCH 


BAL 


15>READSH 


NO, READ DATA 


A2E01359 




BAL 


15,C0MFSM 




A2E0136Q 




DC 


YL2CCFUTAB) 




A2EG1361 




DC 


YL2CI0B0FF) 




A2E013G2 




DC 


X f 0G06 r 




A2E01363 




HVI 


CPUTAB^C'** 




A2E01364 




HVI 


CP1A+5,C'*' 

15,C0MPSM 


IGNORE MODEL 


A2E013S5 




BAL 




A2E013G6 




DC 


YL2CFEATAB) 




A2E01367 




DC 


YL2CIOB0FF) 




A2EG13&8 




DC 


X f 0005 f 




A2E013G9 




HVI 


CPUTAB+5,C f G f 
CP1A*5C1),CBIT 




A2E0I370 




HVC 


RESET MODEL 


A2E01371 




CLI 


IOBUFF+6,X f 4G' 




A2E01372 




BC 


BE,SEAR2 




A2ED1373 




HVI 


CCHP51H,X f 0^ f 


SET COMPARE = 4 


A2E01374 




BAL 


15,COHP5A 


BRANCH TO COMPARE 


A2EQ1375 




DC 


YL2CBEVTAB) 




A2E01376 




DC 


YL2CIOBUFF+6) 




A2E01377 




DC 


X'OOOB' 




A2ED1380 




BC 


15,SEAR1 




A2E01385 


5EAR2 


HVI 


CFUTAB+5,C^ , 




A2ED1390 




BAL 


15,COHPSH 




A2E01395 




DC 


YL2CDEVSHT) 




A2EG140Q 




DC 


YL2CI0BUFF) 




A2E01405 




DC 


X f 0005 f 




A2E01410 




HVI 


CPUTAB*5,C f G f 




A2EG1415 


SEAR1 


CLC 


I0BUFF(6),CTLPRG 


COMPARE IF UCB 


A2E01420 




BC 


BE,CTP1U 


YES, BRANCH 


A2EG1425 


SEAR4 


BAL 


15>READSM 


UNKNOI4N IGNORE 


A2E01430 




CLI 


IOBUFF,C f * f 


IS A TEXT CARD 


A2E0I435 




BC 


BE,SEAR4 


YES, IGNORE 


A2E0144G 




CLC 


IOBUFF+9(3)>END 


IS END 


A2EG1445 




BC 


BE, SEARCH 


YES, BRANCH 


A2EQ1450 




BC 


15,SEAR4 


BRANCH 


A2EG1455 




EJECT 






A2EG14GG 










A2EG1465 






SUBROUTINE 'COMPSM' 




A2EG147G 


* 




WHICH COMPARES IF ARGUMENT IS PRESENT ON INPUT TAPE 


A2E01475 








IF ARGUMENT IS NOT PRESENT 


A2E01^80 








THE SECTION ON INPUT TAPE IS 


A2EG1485 








IGNORED 


A2EG149G 










A2EG1495 


* 








A2EG1500 









IF ARGUMENT IS PRESENT ON INPUT 


A2E01505 








TAPE RECORDS ARE 14RITEN 


A2ED151Q 


* 






ON OUTPUT TAPE 


A2E01515 










A2E01520 




SPACE 4 




A2E01525 


* 








A2EQ153Q 










A2E01535 


COHPSH 


LH 


14R2,S(15) 




A2E01540 




BCTR 


m2>o 


* 


A2E01545 




SIC 


MR2,C0MPS1+1 




A2E01550 


COHPSA 


LH 


U ! R2,4(15) 


STORE LENGTH 


A2E01555 




LH 


KR1,G(15) 


STORE ADDRESS 


A2E01560 




LH 


NR3,2(15) 




A2E01565 


COHP52 


CLI 


OCWRl),X f FF ? 




A2E01570 




BC 


BE, 6(15) 




A2E01575 


COHPS1 


CLC 


0(G,NR3),Q(NR1> 




A2E01580 




BC 


BE,C0KPS3 




A2EG15S5 




LA 


NR1»GCNR1,NR2) 




A2E01590 




BC 


15,C0HPS2 




A2E01595 


COHP53 


BAL 


15,READ5H 




A2E01600 




CLI 


IOBUFF,C f * r 


IS A TEXT CARD 


A2E01G05 




BC 


BE > SUITA 
IOB0FF*9(3),END 


YES, IGNORE 


A2E01610 




CLC 




A2EQ1615 




BC 


BE,C0MP54 




A2E01620 


SUITA 


BAL 


15, PUNCH 




A2E01&25 




BC 


15,C0HPS3 




A2E0163D 


C0HPS4 


CLC 


I0BUFFU5(6),F4G 


COHPARE HITH BLANKS 


A2E0I635 




BC 


BNE,SUIT1 


NOT EQUAL BRANCH 


A2E01640 




BC 


15, SEARCH 


EQUAL BRANCH 


A2E016A5 


5UIT1 


BAL 


15, PUNCH 


GO TO OUTPUT RECORD 


A2E01&50 




BAL 


15,NESSAG 


SEND MESSAGE END OF SIMULATOR 


A2E01655 




DC 


YL2CB4BSH1) 




A2E01660 




BAL 


I5,BVT4 


GO TO WRITE A TM 


A2E01665 




BAL 


15 ,HESSAG 


SEND HESSAGE END OF EDITING 


A2E0167G 




BC 


YL2CENDI6) 




A2EG1675 




BAL 


R1,READTY 




A2E01G80 




CLC 


I0BUFFC3),YES 




A2E01685 




BC 


BEjEBACl 


GO TO RETRY 


A2E01690 




BAL 


15,HESSAG 


SEND HESSAGE f END OF EDITING f 


A2E01G95 




BC 


YL2CENBEG) 




A2E01700 




MI 


SWTCU^'GF' 


SET RETRY SJ4ITCH OFF 


A2E01705 




BC 


15,RH1A 


GO TO REWIND 


A2E01710 


EDACI 


01 


SHTC+l,X f FO v 


SET SWITCH FOR RETRY ON 


A2E01715 




BC 


15,EBAC 


BRANCH TO REMIND INPUT TAPE 


A2E01720 




EJECT 






A2E01725 










A2E01730 


* 








A2E01735 






CREATION OF UCB AND CCB FOR CONTROL PROGRAM 


A2E0174Q 










A2EQ1745 


* 








A2E01750 




SPACE 2 




A2E01755 




CREATION OF CCB 




A2E01760 










A2E01765 


CTP1U 


HVC 


C0NTRLC8),I0BUFF+72 


HOVE IDENTIFICATION 


A2E01770 




HVI 


FO,X f FO f 


SET CHANNEL NUMBER - 0 


A2E01775 





01 


CTABEU,X T FG r 

WR1,DEVTAB 


SET SWITCH ON 


A2E01780 


CTABA 


LA 


WR1= A (DEVICE TABLE) 


A2EG1735 




CLI 


FG,X f F7* 


IS CHANNEL NUMBER=7 V1L2 


A2E01790 




CLI 


F0,X f F3 f 


IS CHAN NUHBER=3 (DELETED) V1L2 


A2E01795 




BC 


BE, CTABC 


YES, BRANCH 


A2E0179& 


CTABU 


CLI 


G(WRl),X f FF v 


IS TABLE EXHAUSTED 


A2E01800 




BC 


BE, CTABD 


YES, BRANCH 


A2EG18G5 




CLC 


6(l,WRi),FG 


IS CHANNEL NUMBER EQUAL TO TABLE 


A2EG1810 




BC 


BE,CTPABJ 


YES, BRANCH 


A2EG1815 


CTABF 


LA 


WR1>11(WR1) 


WR1 = WR1+11 


A2E01820 




BC 


15, CTABU 


BRANCH 


A2EG1825 


CTFABJ 


MVC 


I0BUFF(8G),CTAB+8G 


HOVE RECORD 


A2EGI83G 




HVC 


I0BUFFU7(6),CTAB 


HOVE ADDRESS 


A2EG1835 




HVC 


I0BUFFH9(1),FG 


HOVE CHANNEL NUMBER 


A2EG184G 




HVI 


I0BUFF+39,X f 4G f 


HOVE BLANKS 


A2EG1845 




HVC 


I0BUFF+4G( 39 ) > IOBUFF+39 * 


A2EG185G 


CTABE 


BC 


15, CTABK 


SWITCH 


A2EG1855 




BAL 


15»PUNCH1 


GO TO WRITE 


A2EQ18&G 




SR 


WR5 >WR5 


HR5=0 


A2E01865 




IC 


14R5 ,F0 


INSERT CHANNEL NUMBER 


A2E0I87G 




LA 


WR5,1(WR5) 


INCREMENT CHANNEL NUMBER BY ONE 


A2E01875 




5TC 


WR5 >FG 


STORE CHANNEL NUMBER 


A2E0168G 




BC 


15,CTABA 


LOOP 


A2EG1885 


* 








A2E01890 










A2E01895 


CTABK 


HI 


CTABEH,X ¥ GF f 


SSET SNTCH OFF 


A2EG19GD 




HVC 


I0BUFF(5),CHTAB 


HOVE LABEL 


A2E01905 




BC 


15, CTABE 


BRANCH 


A2EG191G 










A2EG1915 


CTABD 


HVC 


I0BUFF(8G),FULL 


HOVE FULL WORD 


A2EG1920 




BC 


15, CTABE 


BRANCH 


A2EG1925 










A2EG193G 


CTABC 


HVC 


IOBUFF(BO),FULL 


HOVE FULL WORD 


A2E01935 




BAL 


15,PUNCH1 


GO TO WRITE 


A2E0194G 




BAL 


15,PUNCH1 


60 TO WRITE (DELETED) V1L2 


A2E01945 




BAL 


15,PUNCH1 


GO TO URITE (DELETED) V1L2 


A2EG1950 




BAL 


15,PUNCH1 


GO TO WRITE (DELETED) V1L2 


A2E01955 


* 


BAL 


15,PUNCH1 


GO TO WRITE (DELETED) V1L2 


A2E0196G 




HVI 


FG,X f FO f 




A2E01965 


CTP1 


01 


CTPOA+l,X f FO f 


SET SWITCH FOR CHAN LIST ON 


A2EG197G 




01 


CTPlA+l,X f FG f 


SET SWITCH FOR CHANNEL OFF 


A2EG1975 




LA 


WRI,BEVTAB 


WR1 = A(DEVICE TABLE ) 


A2EG198G 


CTPOB 


CLI 


FG,X f F7 f 


COMPARE CHANNEL TO 7 V1L2 


A2EGI985 


*CTF08 


CLI 


FG,X T F3 f 


COMPARE CHAN TO 3 (DELETED) V1L2 


A2EG1986 




BC 


BE,CTPC 


EQUAL BRANCH TO CREATE UCB LIST 


A2EG199G 




CLI 


Q(KRl),X f FF f 


IS DEVICE LIST FINISHED 


A2EG1995 




BC 


BE,CTP1A 


YES, BRANCH 


A2E02000 




CLC 


6(1,NR1),F0 


COMPARE WITH CHANNEL 


A2E02G05 




BC 


BE,CTPDA 


EQUAL BRANCH 


A2E0201G 


CTPOD 


LA 


NR1,11(NR1) 


NOT EQUAL INCREMENT WR1 BY 11 


A2EG2G15 




BC 


15, CTPOB 


LOOP 


A2EG202G 


CTPGA 


BC 


G,CTPOC 


SWITCH FOR CCB 


A2EG2G25 




NI 


CTP1AH,X*QF» 


SET SWITCH FOR CHANEL ON 


A2E02030 




HVC 


CTAB1*17(2),9(WRI) 


MOVE DEVICE ADDRESS 


A2E02035 




HVC 


IOBOFF(80),CTAB1 




A2E02G4G 





BAL 


15 _P[fNCHi 


GO TO OUTPUT RECORD 

Uv IKJ Vwli Ul [\LUUiMJ 


rt e_ L- \J C SJ nf Jf 




HVC 


v» » ri Lj 1 __ vJ \ ~ .J J L? v rNls\X / 




A7FG7G5Q 




HVC 


V# »riO__ T X7\X/ )"Vnfvi/ 




A2E02055 




HVC 


IGRUFF(8G).CTAB2 


HOVE RECORD TO OUTPUT BUFFER 


A2FG2G&0 




BAL 


15, PUNCH 1 




A2E02Q65 




BC 




LOOP 


A2E02070 


CTP1A 


BC 


GXTP2A 

vjuir __rr 


SWITCH FOR CHANNEL 


A2E02075 




HVC 


IOBUFF(80),FULL 


HOVE LAST FULLHORD 


A2E02080 




BAL 


15>PUNCH1 


HOVE OUTPUT RECORD 


A2EG2G35 

ni.LUA.uU,> 


CTP2A 


SR 


WR1>WR1 


WR1=Q 


A7FG2090 




IC 


WRUFQ 


INSERT CHANEL NUHBER 


A2FG2G95 




LA 


WR1,KWR1) 


INCREMENT IT BY ONE 


A2EG21GG 

nt.uut.iWU 




5TC 


MR1>F0 


STORE IT 


A2E02105 




BC 


15,CTP1 


LOOP 


A2EG2110 










A2E02115 


* 




TREATMENT OF FIRST CCB LIST 


A2EG212G 










A2F02125 

nt.i-ufc.X4. j 


CTPOC 


HVI 


IOBUFF»K^0 T 


MAl/F pi AWVC Tf| HIITPHT RIIFFFP 
nUVu DLHVxfs j xTi UU 1 rU I DUrrCh 


A2EG2130 




HVC 


I0BUFFU(79),I0BUFF 




A2EG2135 




KVT 


lOBUFFX'*' 




A2FG21AG 

n£.LUfc.JL IU 






15>PUHCH1 


rn ta UPTTF 






1 » V _, 


I0BUFF*15(21)>IDENT 


% 






1 f V l» 


IOBUFF+37(l)>F0 


M_"tt/F rWAWWFI RlfNPFP 


A2FG2155 




DfiL. 


15>FUNCH1 


ftA TA PPTTF 


A9F071 AG 




H\/T 

1 IV x 


I0B0FF+l,X f 40 T 


HAUF PI Akil/tr TH Pf FCnrD 
nUVt DLftr»t\3 IU DUrrllK 


A?FG^1^ 

n£.LUfc.lOj> 




tiv U 


I0BUFF+2(75)>I0BUFF+1 










15>FtJNCHI 


rn TA MOT TP 


&7FG717 1 . 
rt__u.u__x/ _» 






CTA8+2(1),F0 


MAUF riJLAKJupi WUMPPD 






1 1 V _* 


IOBUFF(B0),CTAB 


KAVF pprnpn TA AHTPHT RHFFFP 


rt £. t_ u £. x vj -J 




BAL 


15>PUNCH1 


r r A TA UPTTF 


A2EG2190 




HVC 


CTAB*97(6)>CTAB 


HOVE ADDRESS 


A2F02195 




HVC 


IOBUFF(60)>CTAB*8G 


HOVE RECORD TO OUTPUT BUFFER 


A2E022G0 

n -C i— C-. w *w? 




BAL 


15>PUNCH1 


GO TO WRITE 


A7EQ22G5 




HI 


CTPGA*l>X'QF f 
15,CTP0A 


SET SWITCH OFF 


A2E02210 




BC 


BRANCH 


A2EQ7215 


* 








A7E0222G 










A7PQ2225 


a. 




CREATION OF UCB BLOCKS 




A2FD2230 










A7FG77i^ 




SPACE 2 




A7FG774G 


pTpr 


HVI 


I0BUFF>X f 4Q* 
I0BUFFU(79),I0BUFF 


SET OUTPUT BUFFER TO BLANKS 


rs__L.u____^f-j 




HVC 




A7FG77 c ;G 




HVC 


I0BUFF+7(5), EJECT 


HOVE CONTROL RECORD 


r»____u i____J_J 








FOR AS5EHBLY 


A7FG77AG 

rt_.Lv_._.u v? 




BAL 


15>PUNCH1 


GO TO WRITE 


A2E02265 




HVI 


I0BUFF>C f * f 


HOVE A NEW RECORD FOR ASSEMBLY 


A2EQ7770 




HVI 


IOBUFFH>X f 40 T 


HOVE BLANKS TO OUTPUT BUFFER 


A2E02275 




HVC 


I0BUFF+2(78),I0BUFF+1 


* 


A2E02280 




BAL 


15>PIM_H1 


GO TO WRITE 


A2E02285 




HVC 


I0BUFFU5(19)>LISCCB 


HOVE IDENTIFICATION 


A2E0229D 




BAL 


15>PUNCH1 


GO TO WRITE 


A2E02295 




01 


CTPCO*l,X ? FO f 


SET SWITCB ON 


A2E823G0 




LA 


WR1,DEVTAB 


MR! = ADDRESS OF DEVICE TABLE 


A2E023G5 


CTPCA 


CLI 


Q(NRl)>X ? FF f 


IS TABLE FINISHED 


A2E02310 




BC 


BE > SEAR4 


YES > CONTINUE TREATNENT 


A2EG23I5 





LA 


UR2.DEVTAB 




V1L2 


A2E02316 

Mfc. UVb«>XV 


CTPC1 


CLR 


> r\s\u 




V1L2 


A2EG7317 




BC 


BEXTPC2 

Li l_ > V* f * WU 




V1L2 


A2E02318 




CLC 


0(11>NR1),G(NR2) 


15 DEV ALREADY DEFINED V1L2 


A2E02319 




BC 


8, CTPCB 


YES-BYPASS 


V1L2 


A?EG2320 




LA 


NR2,11(MR2) 


NO 


V1L2 


A2E02321 




BC 


15>CTPC1 


LOOP 


V1L2 


A2E02322 


CTPC2 


HVC 


CCBTAB*1(4),0(HR1) 


HOVE DEVICE ADDRESS V1L2 


A2E02323 




CLI 


G(NRl),X*40 f 


IS A BLANK IN TABLC DELETED) V1L2 


A2EG2324 




BC 


BE>CTFCD 


YE 5, IGNORE 


(DELETED) V1L2 


A2E02325 




HVC 


CCBTA8U(4),0(NRI) 


NOT YET HOVE ADDR (DELETED) V1L2 


A2E0232G 




HVC 


CCBTAB(1)>4(MR1) 

CCBTAB+17(4),0(NR1) 

IOBUFF(80)>CCBTAB 






A2E02327 




HVC 


* 




A2E02330 




HVC 


HOVE RECORD 


TO OUTPUT BUFFER 


A2E02335 




HVC 


IOBUFF+39( 11 ) »BEVTYP 


HOVE DEVICE 


TYPE 


A2E02340 




HVC 


IOBUFF*46( 4 ) » Q(NR1 ) 






A?E02345 




BAL 


15»PUNCH1 


GO TO WRITE 




A2E02350 




HVI 


CCBTAB*97,X T F0 f 


HOVE A f E0* 


TO HEVTCF AHriPE^^ 


A2EG2355 




HVC 


CCB TAB +98 (1K6(WR1) 


HOVE DEVICE 


ADDRESS 


A"E0236G 




HVC 


CCBTAB*99(2)i9(NRl) 






A2E023&5 




HVC 


IG8UFF(8G) »CCBTAB+80 


HOVE OUTPUT 


RECORD TO BUFFER 


A2E02370 




HVC 


IO3UFF+39(6)*0EV3&0 


HOVE DEVICE 




A2E02375 




BAL 


15>PUNCH1 


GO TO NRITE 




A2E02380 




HVC 


IOBUFF ( 8 0 K CCBXQ 0 






A2E02385 




HVC 


IG8UFF+39(6) .BEVSPF 

■LvUUi t 1 J / V U / > UL.V Ui I 


HOVE DEVSPF 




A2E023 Q 0 




BAL 


15»PlfCHl 


GO TO NRITE 




A2E02395 




HVC 


IOBUFF •f39( 6 )*BORCH 


HOVE BORCH 




A2E02400 




BAL 


15»PlflCHl 


GO TO MRITE 




A2EG24G5 




HVC 


IOBUFF ( 80 ) *CCBA GO 


HOVE RECORD 


TO OUTPUT BUFFER 


A2EQ241G 




HVC 


IOBUFF+39 (&)* DEVSV 


HOVE DEV SVC 




A2E02415 




BAL 


15,PUNCH1 


GO TO MRITE 




A2E02420 




" HVC 


IOBUFF* 39 ( & ) » DEVCH 


HOVE BEVCHN 




A2E02425 




BAL 


15 > PUNCH 1 


GO TO WRITE 




A2E02430 




HVC 


I0BUFF+39 ( 6 ) , DEV IN 


HOVE DEV INT 




A2E02435 




BAL 


15>PUNCH1 


GO TO NRITE 




A2E02440 




HVC 


IOBUFF (8 G),CCBXL3 


HOVE RECORD 


TO OUTPUT BUFFER 


A2E02445 




BAL 


15>PUNCH1 


GO TO URITE 




A2E02450 


CTPCO 


BC 


15, CONSLE 


SWITCH FOR CONSOLE 


A2E02455 




BC 


15,DISA 

IOBUFF(80)>CCBSPF 


BRANCH FOR DISK 


A2E02460 


CTPCB 


HVC 


HOVE RECORD 


TO OUTPUT BUFFER 


A2E02465 




BAL 


15>PUNCH1 


GO TO MRITE 




A2E02470 


CTPCD 


LA 


MR1»11(HR1) 


INCREMENT DEVICE TABLE ADDR BY 


A2E02475 








ELEVEN 




A2E02480 




BC 


15,CTPCA 


LOOP 




A2E02485 


CONSLE 


CLC 


Q(4»NR1)>F1052 


COMPARE IF 1052 PRESENT 


A2E02490 




BC 


7»CTPCB 


NO BRANCH 


(DELETED) V1L2 


A2E02495 




BC 


7>DI5A 


NO BRANCH 


V1L2 


A2E0249& 




HVC 


IOBUFF(80),CCBSPF 


HOVE OUTPUT RECORD 


A2E02500 




HVC 


IOBUFF+17(2)>E60 






A2E02505 




BAL 


15,PUNCH1 


GO TO MRITE 




A2E02510 




HVC 


IOBUFF(8G)>CCBA0G 


HOVE RECORD 




A2E02515 




HVC 


IOBUFF ( 6 ),REQU5T 






A2E02520 




BAL 


15>PUNCH1 


GO TO WRITE 




A2E02525 




HI 


CTPCQ*l>X'GF f 


SET SNITCH OFF 


A2E02530 




BC 


15, CTPCB 


LOOP 




A2E02535 



DISA 


CLC 


0(4»NR1)>F2311 


COMPARE IF DISK 


A2E02540 




BC 


7>CTPCB 


NO, BRANCH 


A2E02545 




HVC 


IOBUFFC80)»CCB5PF 
IOBUFF+17(2)>E80 


HOVE RECORD 


A2EQ2550 




H¥C 




A2E02555 




BAL 


15, PUNCH 1 


GO TO WRITE 


A2E02569 




BC 


15,CTPCD 


BRANCH 


A2E02565 


F2311 


DC 


C*2311* 




A2EG257D 


E80 


DC 


C T 80 T 




A2E02575 


CBIT 


DC 


C* * 




A2EG2580 


NODSK 


DC 


cnodsk* 


BUFFER 


A2E025S5 


CHTAB 


DC 


C f CHTAB* 


LABEL FOR CHANNEL 


A2E02590 


REQUST 


DC 


C*REQUST* 




A2E02595 


F1052 


DC 

EJECT 


C*1052* 


CONSTANCE FOR 1052 TYPE NRITER 


A2E02&00 
A2EG2605 










A2EG2610 






RECORDS FOR CONTROL PROGRAM 


A2EG2615 










A2E02620 


DEVTYP 


DC 


C 1 DEVTYP- * 


DEVICE TYPE 


A2E02625 


NISKV 


DC 


C f NISKV* 


NO *DISKV* VERSION 


A2E02630 


DISKV 


DC 


C*DISKV* 


DISKV VERSION 


A2EG2635 


A13110 


DC 


C*13110* 


DISKS 


A2E026^0 


DEV360 


DC 


CDEV3&0* 


DEVICE 360 


A2EQ2645 


DEVSPF 


DC 


CDEVSPF* 




A2EQ2650 


BORCH 


DC 


C* BORCH f 




A2E02655 


LISCCB 


DC 


C*UNIT CONTROL * 




A2E02660 




DC 


C* BLOCKS* 




A2E02G&5 


EJECT 


DC 


C*EJECT* 


CONTROL CARD FOR ASSEMBLY 


A2E02670 


DEVSV 


DC 


C'DEVSVC* 




A2E02675 


DEVCH 


DC 


C*DEVCHN* 




A2E02680 


DEVIN 


DC 


C*DEVINT* 


* 


A2E02685 


CTAB 


DC 


C*CH0LST DC ACQ)* 




A2E02690 




DC 


C* * 




A2E02695 




DC 


C* * 




A2E02700 




DC 


C*IOQBGG-ADD.OF 1ST * 




A2E02705 




DC 


C*UCB ON CHAIN* 




A2E02710 




DC 


C* * 




A2E02715 




DC 


c* * 




A2E02720 




DC 


C* DC* 




A2E02725 




DC 


C* AC )* 




A2E02730 




DC 


C* * 




A2E02735 




DC 


C* * 




A2E02740 




DC 


C*ADDR OF POINTER* 




A2E02745 




DC 


C* TO NEKT UCB* 




A2E02750 




DC 


c* * 




A2E02755 




DC 


c* * 




A2E02760 


CTAB1 


DC 


C* DC* 




A2E02765 




DC 


C* X**00*** 




A2E02770 




DC 


C* * 




A2E02775 




DC 


C* * 




A2E02780 




DC 


C* * 




A2E02785 




DC 


c* * 




A2E02790 




DC 


c* * 




A2E02795 




DC 


c* * 




A2E02800 


CTAB2 


DC 


C* DC 




A2E02605 




DC 


C* AL3C )* 




A2E02810 



CCBTAB 



CCBXO0 



CCBAOD 



CC8XL3 



CCBSPF 



DC 


V 


F ¥ 


A2E02815 


DC 


V 


F ¥ 


A2EG2620 


DC 


V 


r ¥ 


A2E02825 


DC 




F ¥ 


A2E02830 


DC 


C l 


» ¥ 


A2E02835 


DC 




f ¥ 


A2E02840 


DC 


c 


' DC 1 


A2E02845 


DC 


c 


' C tf lff 


A2E02850 


DC 


C 1 


F f 


A2E02S55 


DC 


c 


f ¥ 


A2EQ28&G 


DC 


c 


r f 


A2E028G5 


DC 


c 


F ¥ 


A2E02S70 


DC 


C 1 


F ¥ 


A2E02875 


DC 


c 


1 ¥ 


A2E028S0 


DC 


C ! 


' DC* 


A2ED2885 


DC 


c 




A2E02890 


DC 


C 1 


F f 


A2E02895 


DC 


V 


f f 


A2E029GG 


DC 


c 


'DEV36G* 


A2E02905 


DC 


V 


F f 


A2E02910 


DC 


c< 


f ¥ 


A2E02915 


DC 


C< 


F ¥ 


A2E02920 


DC 


c 


F ¥ 


A2E02925 


DC 


c< 


' DC* 


A2E02930 


DC 


C 1 


f x**eo*** 


A2EG2935 


DC 


c 


F * 


A2E02940 


DC 


C 1 


F ¥ 


A2E02945 


DC 


c 


F ¥ 


A2E0295D 


DC 


c< 


F * 


A2E02955 


DC 


C* 


F ¥ 


A2E0296Q 


DC 


C 1 


F ¥ 


A2E02965 


DC 


c 


' DC 


A2E02970 


DC 


c 


' ACQ)* 


A2E02975 


DC 




F ¥ 


A2E02980 


DC 


c ! 


1 ¥ 


A2E02935 


DC 


c 


F ¥ 


A2E02990 


DC 


C< 


F ¥ 


A2E02995 


DC 


C 1 


f ¥ 


A2E03000 


DC 




r ¥ 


A2E03005 


DC 


c 


F ¥ 


A2E03010 


DC 


V 


' DC* 


A2E03015 


DC 


c 


' XL3**G** f 


A2E03020 


DC 


c 


l ¥ 


A2E03D25 


DC 


C' 


F ¥ 


A2E0303D 


DC 


C 1 


'LAST THREE BYTES * 


A2EG3G35 


DC 


C 


'OF SENSE* 


A2EG304G 


DC 


v 


F ¥ 


A2E03G45 


DC 




F ¥ 


A2E03050 


DC 


c 


f DC f 


A2E03055 


DC 


C 1 


f X**EO*** 


A2E030bO 


DC 




} ¥ 


A2E03G65 


DC 


C 


t ¥ 


A2E0307D 


DC 




'BIVST-IHVALID DEVICE* 


A2EG3075 


DC 


c 


' STATUS BITS* 


A2ED3G80 


DC 


c< 


t ¥ 


A2E03G85 



FULL 


DC 


C T DC f 




A2E0309Q 




DC 


C f F'*Q f ,f 




A2EG3G95 




DC 


C f f 




A2E03100 




DC 


C* f 




A2FQ3105 




DC 


C f * 




A2E83110 




DC 


C f f 




A2EQ3115 




DC 


C f f 




A2E03120 




DC 


C* f 




A?EQ3125 




DC 


C* * 




A2EQ3130 


E6Q 


DC 


C f 60 f 




A2F03135 


CTLPRG 


DC 




CQNSTANTE FOR CONTROL PROGRAM 


A2EQ3140 


CONTRL 


DS 


6C 


CON5TANTE FOR IDENTIFICATION 




IDEHT 


DC 


C f CHANNEL CONTROL * 








DC 


r* BLOCK* 




A2FQ1155 

n£.UU JIJ J 


FO 


DC 


C f 0 f 


FO = 0 






EJECT 
















A2E03170 










A2E03175 


* 




SUBROUTINE TO REWIND 


TAPES 


A2E03180 


* 








A2E031B5 




SR 






A2E03190 




5TH 


NR1.DEVA1 


STORE DEVICE ADDRESS = 0 


A?E03195 




HVI 


DEV24.X f 4G f 


SET DEVICE TYPE = BLANKS 


A2E03200 




HVC 


DEV24*1(4 ) .DEV24 


* 


A2EQ3205 




CNOP 


0*4 








SVC 


17 


SEARCH FOR DEVICE ADDRESS 


A2EQ3215 




DC 


CSIM20UT f 




rtLLU Ji.i. v 


DEVA1 


DC 


K f QQ00 f 

A UUUv 






DEV24 


DC 


c v * 








DC 


C f * 




A2EQ3235 

r1«LLU JcJ J 




DC 


AL3CHVT3) 


GO TO ERROR 


A?F0i74D 




CLC 


DEV24 (4K DEV24A 


COMPARE IF TAPE 


ni.L.UvJt.™ j 




BC 


7 > EDAC 


NO BRAUCH 


A2E032S0 




HVC 


DEVRW(2KDEVA1 


SET DEVICE ADDR IN REWIND 


A2E03^55 

r 1 *L t_ <J J J -» 








SUBROUTINE 


A2E032A0 




BAL 


15*FIRSRU 


GO TO REWIND 


A2Fftl7^ 

ntLU vJ «_0 J 


EDAC 


KVI 


EDI2*X f G0 f 


SET DEVICE ADDRESS TO ZEROS 

w(_ % UL.V IVil. ri L* L» f\ L. J «J t \J CLlwJ 


A2EQ327Q 




HVI 


EDI2fl*X*Q0 f 

Luxe. * JL >*\ vu 




A^FO^??^ 

ntt-U jl/ J 




HVI 


EDIi»C f ¥ 


SET TYPE OF UNIT TO BLANKS 


A2E032S0 




HVC 


Lull * i w J > LUil 




rtiLU J£.L> J 




CHOP 




SEARCH FOR DEVICE ADDRESS 


A2E03290 




SVC 


17 


FOR INPUT DEVICE 


A2E03795 




DC 


C T SIM2IN f 




A2E03300 


EDI2 


DC 


x*oooo f 




A2E03305 


EDI1 


DC 


C f T 




A2E033IO 




DC 


C f f 


* 


A2E03315 




DC 


AL3CHVT1) 




A2E03320 




CLC 


EDI1C4),DEV24A 


COMPARE IF DEVICE IS A TAPE 


A2E03325 




BC 


7,SWTC 


NO, BRANCH 


A2E03330 




HVC 


DEVRHC2)>EDI2 


SET DEVICE ADDRESS FOR REMIND 


A2E03335 




BAL 


15>FIR5RW 


GO TO SEND A REMIND COMMAND 


A2E03340 


SHTC 


BC 


0, RETRY 


RETRY SWITCH 


A2E03345 




BAL 


15>HESSAG 


SEND A MESSAGE 


A2E03350 




DC 


YL2CWAI) 


& 


A2E03355 




SVC 


9 


ENABLE INTERRUPTS 


A2E03360 





SVC 


19 


WAIT STATE 


A2EG3365 




BC 


15,*-2 


LOOP 


A2E0337Q 




EJECT 






A2EG3375 










A2E03380 


# 








A2E03385 






SUBROUTINE TO SEND A REMIND COMMAND 


A2E03390 










A2ED3395 










A2E03400 




SPACE 


4 




A2E03405 


FIRSRJ4 


SVC 


9 


ENABLE INTERRUPTS 


A2E03410 




CHOP 


4,8 




A2E03415 




SVC 


13 


I/O REQUEST FOR REMIND COMMAND 


A2E03420 


DEVRW 


DC 


X'GOOO* 


DEVICE ADDRESS 


A2E03425 




DC 


A(CCMREH) 


ADDR OF Cm FOR REMIND COMMAND 


A2EQ3430 




BS 


4C 




A2E03435 




DS 


D 


*s 


A2E03440 


SVCPSH 


DS 


D 


PSM OF INTERRUPTION 


A2E03445 




DC 


A(NRMRET) 


NORMAL RETURN 


A2E03450 




DC 


A (NRHRET) 




A2E03455 




BCR 


15,15 


RETURN TO CALLER 


A2E03460 




CHOP 


2,4 




A2EG3465 


NRHRET 


SVC 


3 


RETURN TO POINT OF INTERRUPTION 


A2E03470 




DC 


A (SVCPSH) 




A2E03475 










A2EG34SQ 






CDI FOR REMIND 




A2E03465 










A2EQ3490 


COIREM 


CCH 


X f 07 f ,*,X'00M 




A2E03495 


DEV24A 


DC 


^2400' 


TYPE OF UNIT FOR TAPES 


A2E03500 


END 


DC 


C'EMD* 




A2E035D5 


F4Q 


DC 


C • 




A2E03510 


YES 


DC 


C'YES* 




A2E03515 




EJECT 






A2E0352D 










A2E03525 






SUBROUTINE TO READ CONTROL CARDS 


A2E0353Q 






USING I/O PACKAGE 




A2E03535 










A2E03540 




CHOP 


0,4 




A2E03545 


READ 


SVC 


18 




A2E03550 




DC 


C f SIH2INF * 




A2E03555 




DC 


FL2'80» 




A2E035G0 




DC 


ACIOBUFF-3) 




A2E03565 




CLI 


IOBUFF-3,X f G7 f 




A2E03570 




BC 


8, READPR 




A2E03575 




BAL 


15>MESVC4 




A2E03580 




DC 


YL2(REA2) 




A2E03585 


WAI12 


BAL 


15,HESVC4 




A2E0359D 




DC 


YL2(HAI) 




A2EG3595 


mil 


SVC 


9 


ENABLE INTERRUPTS 


A2E03600 




SVC 


19 


14AIT STATE 


A2EG3&G5 




BC 


15>*-2 




A2E03610 


READPR 


ST 


15, REGIS 




A2E03615 




HVI 


I0BUFF*27,X T 15 T 




A2E03620 




HVI 


IOBUFF-3,X f 40 f 


* 


A2E03625 




HVI 


I0BUFF-4,X T 1F* 


SET LENGTH OF MESSAGE 


A2E03630 




BAL 


15,HESSAG 




A2E03635 





nr 


VI 7( TOR! IFF -61 




A?Ffn£4ft 




HVT 

i IV J. 


T0RnFF+77.X f 4ft f 


PF^FT R! ANK TM TNPUT RI1FFFP 


A?FH : ?^4 C 5 

ni.LUviOiJ' 




1 IV X 


ivuurr ~ > a uu 










iJ > r\c_ux j 


PF5TOPF PI 5 PFftT^TFP 






BCR 


15, l 1 * 
x-j > i^j 


PFTIIPN TO FAI J FP 






EJECT 






A2EG36&5 

niLUJOUJ 










A2E03o70 






SEND MESSAGE IF CARD 


f EDITCTL T MOT DEFINED 

t_o>X lb II. 1 W 1 ULl X* %' — U> 


A2EQ3675 










A2E03680 


MESVD* 


LH 




LOAD ADDRESS OF MESSAGE IN 14R1 


A2E03b85 




LA 


R2>0 


R2 = 0 






IC 


R2»0(NR1) 


INSERT IN R2 LENGTH OF MESSAGE 

XJ »«W\ 1 XI 1 rV£_ L,wt<v III VI 1 ILJUnUL 


A2E036 < ?5 




BCTR 


l\iC , u 


DFfRFMFNT R7 BY GNF 


r? it. t_ u .• uu 




STC 


R2>DL 


STORE R2 IN DATA LENGTH 

w 1 v U L (\C XI » Uri 1 f t i_t— »*w III 






LA 


UR1.KUR1) 


INCRFMENT ADDRESS BY ONE 

xi«L»(\L.i it—If 1 rt L» U s\ L, J «3 ui VitU 


niLu j/ xu 




STH 


URl*DL+2 

r\5\ X > L>L. * i~ 


STORE ADDRESS IN SVC 18 


A2EQ3715 

r 1 1_ u. U «J < X—? 




SVC 


9 


ENABI F INTERRUPTS 


riz.t_uo/ t.u 




OfOP 






A2ED3725 




SVC 


4 


SEND MESSAGE 


A^Fni?^^ 

ni-LU J( v) U 


DL 


DC 


FLl f 0 f 


LENGTH 


A2ED3735 




DC 


AL3(0) 


ADDRESS 


A2E03740 




TM 


GCURIKX'O?* 

U\.rU\X/,A wi 


IS MESSAGE URITEN CORRECTLY 


A2EQ3745 




BC 


8,*-$ 


NOT YFT f OOP 


A7Fni7SH 

RiLUJf J U 




BC 

t-.L» 




VF5*PFTi!PM TO FAI J FP 


A7Fft^7^S 
rtJLt-UO/ J J 




TM 




TFST TF ANV FPPHP 


A9FA17AH 




fc»L* 


1 % uati 

x , rvrt x X 


YFS.PO TO UATT STATF 


A7Ffts7A^ 




nr 


IJ >£.\ xJ> J 


NO.PFTHPM TO fAf J FP 






FJFfT 






A7Ff1^77 E ; 


¥e 








ri «_ t_ U vJ < L7U 










A2FG37S5 


* 




SUBROUTINF OUTPUT OF 

w OUi\"J J 1 XI «L. \/W irui VI 


SIM~29 


A7Fft^79H 






USING I/O PACKAGE 




A2E03795 










A2E03SQ0 










A7EQ3805 


PUNCH1 




I0BUFF+72C3),C0NTRL 


MOVE IDENTIFICATION 


A^EQIBID 

r t*_ i — w juxu 




PACK 


C0NT(8),C0NTRL*3(5) 




A2E03815 




CVB 


UR5,C0NT 


* 


A7E 038^0 

II fa- 1_ V-> *J W w \J 




LA 


k ? R5,l(NR5> 




A2ECP825 




CVD 


14R5,C0NT 




A2EQ3830 




NI 


CONT*7,X f F0 ? 


* 


A7E03835 






I0BUFF+75(7),C0NT+5(4> * 


A2E033A0 




HVC 


C0NTRL+3(5),I0BUFF+75 


SAVE IDENTIFICATION 


A2E038^5 




BC 


is ,punch 


GO TO HRITE 


A2E03S50 


COffT 


D5 


ID 


COUNTER FOR IDENTIFICATION 


A2E03S55 




DC 


K f 0F ? 




A2F03HAQ 




CNGP 


0,4 




A 9 E038o5 


PUNCH 


SVC 


18 


REQUEST ON ED01FILE DEVICE 


A2E03870 




DC 


CSIM20UT f 


S\'MB0L 


A2E03875 




DC 


FL2 f 6Q f 


LENGTH 


A2E03830 




DC 


ACIGBUFF-1) 


ADDRESS 


A2ED3885 




CLI 


IOBUFF-I, X f Q7 f 


IS N'RITE CORRECT 


A2EQ3890 




BC 


8,PRINT 


YES, GO TO PRINT 


A2E03895 




CLI 


I08UFF-l,X f 01 T 


NO, TEST ERROR 


A2E03900 




BC 


B,HVT3 


BRANCH TO ERROR 


A2E03905 




CLI 


IOBUFF-l>X f 03 f 


TEST UE 


A2E03910 



HVT3 



HVT4 



REGIS 
PRINT 



CP1 



CPU 



BC 

BC 
BAL 
DC 
BC 

EJECT 



8,MVT4 

15>WAI12 

15,MESVC4 

YL2(MVT31) 

15>WAI12 



YES, GO TO WRITE A TAPE MARK 
LOOP 

SEND A MESSAGE ERROR 
BRANCH TO WAIT STATE 



SUBROUTINE TO WRITE A TAPE MARK ON 'EBOIFILE* DEVICE 



HVI IOBUFF >X f 7F f 

HVC IOBUFF*! ( 79 ), IOBUFF 

ST I5>REGI5 

CHOP 0,4 

SVC IB 

DC C5IM20UT » 

DC FL2 T l f 

DC ACIOBUFF-1) 

BAL 15>MESVC4 

DC YL2CEKDTA) 

L 15, REGIS 

BCR 15,15 

DS F 

SPACE 4 



MOVE CHARACTER TH IN OUTPUT BUF 
HOVE 7F IN BUFFER 
SAVE REGISTER R15 

REQUEST ON 'EBOIFILE' DEVICE 

SYMBOL 

LENGTH 

ADDRESS 

SEND A MESSAGE 

RESTORE R15 REGISTER 
GO TO PRINT 

BUFFER TO SAVE R15 REGISTER 



SUBROUTINE TO PRINT EDIT INFORMATION 
IF *ED2PRINT f IS PRESENT 



HVC IOBUFF +81(80), IOBUFF 

HVI IOBUFF*89,X*G0* 

HVI IOBUFF+79,X f G0 f 

CHOP 0,4 

SVC 18 

DC C f SIM2PRNT f 

DC FL2*81 f 

DC ACIOBUFF+79) 

BCR 15,15 

BCR 8,15 
EJECT 



REQUEST ON PRINTER 

LENGTH 
ADDRESS 

RETURN TO CALLER 



V1L2 

(DELETED) V1L2 



TREATMENT OF CPU1 CONTROL CARD 



HVC 

IC 

LA 

STC 

HVC 

HVC 

CLI 

BC 

BC 

01 

01 

01 

01 



CP1A(6),I0BUFF+S 

WR3,I0BUFF+12 

WR3,1(WR3) 

NR3,I0BUFFHG 

CAPACT(6),I0BUFF*5 

CP2B*1(2),I0BUFF*12 

CPlA+5,C ¥ 2 f 

BE,CP11 

15,READ1 

SWITC1U,XW 

5WITC2+l,X f 80 f 

SWITC3+l,X f F0 f 

SNITC4U,X f FG> 



HOVE MODEL OF 1620 
IN SEARCH TABLE 



HOVE CAPACITY OF 1620 

IN SEARCH TABLE 



GO TO READ 



A2E03915 
A2E03920 
A2E03925 
A2E03930 
A2E03935 
A2E03940 
A2EG3945 
A2E03950 
A2E03955 
A2EQ3960 
A2E03965 
A2E03970 
A2E03975 
A2E03980 
A2E03985 
A2EQ3990 
A2E03995 
A2EQ4000 
A2E04GG5 
A2EG4010 
A2EG4D15 
A2E04020 
A2EG4G25 
A2E04030 
A2E04Q35 
A2EG4040 
A2EG4045 
A2EQ4G5G 
A2E04055 
A2E04G60 
A2E04G65 
A2E0407G 
A2E04075 
A2EG4080 
A2EG4085 
A2E04090 
A2EG4G95 
A2EG4100 
A2EG41G1 
A2EG4105 
A2EG4110 
A2E04115 
A2E04120 
A2E04125 
A2EG4130 
A2E04135 
A2E04140 
A2E04145 
A2E04150 
A2E04155 
A2EG4160 
A2E04165 
A2E04170 
A2E04175 
A2E04I80 





01 


SS4ITC5H,X'F0 f 




A2EG41S5 




HVC 


I0BUFF(13)>FEAT 




A2E04190 




BAL 


9,FEAT1 




A2E04195 




HVC 


I0BUFF(13),FEAT+13 




A2E04200 




BAL 


9,FEAT1 




A2EG42G5 


CF1ACF 


HVC 


I0BUFF(13),FEAT+26 


HOVE RECORD *DIVID f 


A2EG4210 




BAL 


9,FEATI 




A2E04215 




NI 


3JITCl+l,X f 0F f 
5MITC2+1>X , 0F T 




A2EQ4220 




NI 




A2E04225 




NI 


$4ITC3*l,X'QF f 




A2E04230 




NI 


SWITC4*l,X'0F f 




A2EG4235 




NI 


SMITC5U,X'0F T 




A2E04240 




BC 


15,READ1 




A2E04245 


CF2B 


DC 


X'F00000 f 


CAPACITY OF 1620 


A2E04250 


CP2A 


BC 


X'GOOOGO* 


CAPACITY OF 360 


A2E04255 


CFU1 


BC 


C'CFUl 1620/1 >20K f 




A2E04260 




DC 


C'CPUl 162G/l,40K f 




A2E04265 




DC 


C'CPUl 1620/1, 60K f 




A2E04270 




DC 


C'CPUl 1620/2, 60K f 




A2EG4275 




DC 


C'CPUl 1620/2, 2GK V 




A2E04280 




DC 


C'CPUl 1620/2, 4CK f 




A2E04285 




DC 


X'FF* 




A2E04290 




EJECT 






A2E04295 










A2E04300 










A2E04305 






TREATMENT OF CFU2 CONTROL CARD 


A2E04310 










A2E04315 




SPACE 


4 




A2E04320 


CF2 


CLI 


I0BUFFU4,C f K f 


IS CPU2 HIGHER THAN 64K 


A2E04325 




BC 


7,CF21 


YES, BRANCH 


A2E04330 




HVI 


CP2A,X'F0' 




A2EG4335 




HVC 


CP2AU(2),I0BUFF+12 




A2E04340 




BC 


15,READ1 


GO TO READ 


A2E04345 


CF21 


HVC 


CP2A(3),I0BUFF+12 




A2E04350 




BC 


15,READ1 


GO TO READ 


A2E04355 










A2E04360 


CP02 


DC 


CCPU2 360/30, 32K f 




A2E04365 




DC 


C T CPU2 360/30, 64K ¥ 
C f CPU2 360/30, 12SK" 




A2E04366 




DC 




A2E04367 




DC 


CCPU2 360/40, 32K f 




A2E04368 




DC 


C f CFU2 360/40, 64K f 




A2E04369 




DC 


CCPU2 360/40, 128K' 




A2E04370 




DC 


CCPU2 360/40,256K* 




A2E0437I 




DC 


X'FF f 




A2EG4395 




EJECT 






A2E04400 










A2E04405 






TREATMENT OF FEATURE CONTROL CARD 


A2EG4410 










A2E04415 


FEAT1 


LA 


R1,FEATAB 




A2E04420 


FEATS 


CLI 


0(Rl),X'FF f 




A2E04425 




BC 


BE,FEAT2 




A2E04430 




CLC 


G(3,Rl),I0BUFF+8 


SCAN FEATAB TO BE SURE 


A2E04435 




BC 


BE,FEAT4 


CONTROL CARD IS SINGLE 


A2E04440 




LA 


R1,5(R1) 




A2E04445 




BC 


15,FEAT3 




A2EQ4450 



FEAT4 


CLC 


3(Z,R1),I0BUFF+11 




A2E04455 


SWITC1 


BCR 


0>9 




A2E04460 




BC 


BE > READ! 




A2EG4465 




CLI 


I0BUFF+12,C f D f 


IS A CARD INDAD 


A2E04470 


SMITCZ 


BCR 


0,9 




A2EG4475 




BC 


BE > READ 1 


YES, IGNORE 


A2EO4480 




CLI 


CPlA*5,X f F2 r 




A2E044S5 




BC 


BNE,FEAT7 


INVALID, SEND A NES5AGE 


A2E04490 




HVC 


G(5,Rl),I0BUFF+3 


VALID MOVE IT 


A2E04495 


SNITC3 


BCR 


0,9 




A2EG4500 




BC 


15,READ1 




A2EQ45G5 


FEAT2 


CLI 


I0BUFF+12,C T X f 




A2E045I0 




BC 


BE,FEAT6 




A2E04515 


FEATS 


HVC 


0(5,R1),IOBUFF*8 




A2E04520 




KVI 


5CRl),X ? FF f 




A2E04525 




CLI 


I0BUFF+12,C f T* 


COMPARE IF 'FLOAT* IS PRESENT A2E0453Q 




BC 


BE,CPIACF 


YES, GO TO HOVE 'DIVID' 


A2E04535 


SHITC4 


BCR 


0,9 




A2E04540 




BC 


15,REAB1 




A2E04545 


FEAT6 


CLI 


CPlA*5,X T F2 f 




A2E04550 




BC 


BNE,FEAT7 




A2EQ4555 




BC 


15, FEATS 




A2EQ4560 


FEAT7 


BAL 


15,MESSAG 




A2EG4565 




DC 


YL2CFEAT9) 




A2EG4570 


5HITC5 


BCR 


0,9 




A2E04575 




BC 


15, READ1 




A2E04580 


FEAT 


DC 


COFEATURE INDAD* 




A2E045S5 




DC 


C FEATURE TRANS' 




A2E04590 




DC 


C f FEATURE DIVID' 




A2E04595 




DC 


C f FEATURE INDEX' 




A2E04G00 




DC 


C f FEATURE FLOAT' 




A2E046G5 




DC 


C 'FEATURE 144LN' 




A2E04610 




DC 


COFEATURE DISKV 




A2E04615 




DC 


X'FF' 




A2E04G25 




EJECT 






A2E04630 






TREATMENT OF DEVICE CONTROL CARD 


A2E04635 










A2EG4636 


DEVI 


CLI 


IOBUFF*19,C0' 


TEST CHANNEL NUMBER 


V1L2 A2E04637 




BC 


BL,ER1A 


BR IF INVALID 


V1L2 A2E0463S 




CLI 


I0BUFF+19,C'6» 


TEST CHANNEL NUMBER 


V1L2 A2E04639 




BC 


BH,ER1A 


BR IF INVALID 


V1L2 A2E04640 




CLC 


I0BUFFU9(l)>I0BUFF+23 


TEST CHANNEL COMPATIBILITY V1L2 A2EG4641 




BC 


BNE,ER1A 


BR IF INCOMPATIBLE 


V1L2 A2E04642 










V1L2 A2EQ4643 




LA 


R2,DEVTAB 


GET SHORT TABLES. 


VIL2 A2E04644 




LA 


R1*DEVSHT 


•ADDRESSES 


V1L2 A2E04S45 


DEV2 


CLI 


0(R2),X'FF' 


TEST END OF TABLE 


VIL2 A2E0464G 




BC 


BE,DEV7 




V1L2 A2E04647 


* 




DEVICE TABLE 


NOT EMPTY 


V1L2 A2E0464S 




CLC 


IOBUFF*7(5),0(R1) 


TEST DEVICE 1620 


V1L2 A2E04G49 




BC 


BE,DEV6 


BR ON DEVICE ALREADY ASSIGNV1L2 A2EQ4650 




CLC 


I0BUFF*23(3),8(R2) 


TEST DEVICE ADDRESS 


V1L2 A2E04651 




BC 


BE,DEV5 


BR ON SAME S/360 ADDRESS 


V1L2 A2EG4652 




CLC 


IOBUFFU3(5),0CR2) 


TEST 5/360 DEVICE TYPE 


V1L2 A2E04653 




BC 


BE>BEV4 


BR ON SAME TYPE 


V1L2 A2E04654 



DEV3 


LA 


R2,11(R2) 
R1,5(R1) 


GET NEXT ELEMENT. 


V1L2 


A2E04655 




LA 


.IN TABLES 


V1L2 


A2ECA65G 




BC 


B,DEV2 


VERIFY NEXT ELEMENT 


V1L2 


A2E0%57 










VIL2 


A2E04658 


BEV4 


CLI 


4(R2),C f P f 


IS TYPE 1 PUNCH * 


V1L2 


A2EG4659 




BC 


BE>BEV3 


BR IF YES, OK 


V1L2 


A2E04660 




BC 


B,ER1A 


IF NO, ERROR 


VIL2 


A2EG4661 










V1L2 


A2E0^662 










V1L2 


A2E0A663 


DEV5 


CLC 


IOBUFF+13C4),0(R2) 


TEST DEVICE TYPE 


V1L2 


A2EQ4664 




BC 


BE>DEV3 


BR ON SAME TYPE 


V1L2 


A2EG4665 




BC 


B,ER1A 


BR ON ERROR 


V1L2 


A2EG4666 










V1L2 


A2E04667 


BEV6 


BAL 


15,HESSAG 
YL2CREAD13) 


SEND MESSAGE 


V1L2 






DC 


DUPLICATE INFORMATION 


V1L2 


A2E04669 




BC 


B,DEV9 


BR TO ACCEPT NEW INF0RMATI0V1L2 


A2E04670 






TEST 1403/144LN COMPATIBILITY 


V1L2 


A2EG3671 


DEV7 


CLC 


I0BUFFH3(4),K1403 


TEST FOR COMPATIBILITY 1403 


V1L2 


A2EGW2 




BC 


7,BEV6 


WITH mm 


V1L2 


A2EG4673 




LA 


R3,FEATAB 


14D3 IS SPCIFIED 


V1L2 


A2EQ4674 


DEV71 


CLI 


G(R3),X f FF f 


IS END OF TABLE REACHED 


V1L2 


A2E03675 




BC 


8,BEV8 


YES, 144LN IS NOT PRESENT 


V1L2 


A2E04676 




CLC 


G(5,R3),K1^LN 




V1L2 


A2E04677 




BC 


8,ERIA 


IMW IS PRESENT-ERROR 


V1L2 


A2EC4678 




LA 


R3,5(R3) 




ViL2 


A2E04679 




BC 


15>DEV71 




V1L2 


A2EQ4680 


* 




SET NEW DEVICE IN TABLES 


VIL2 


A2EG4681 


DEV8 


WI 


5(R1)>X V FF* 


SET PROTECTIONS IN. 


V1L2 


A2E0468Z 




HVI 


ll(R2)>X'FF f 


.TABLES 


V1L2 


A2E04683 


DEV9 


CLI 


IOBUFF+20,C f , f 


TEST. 


V1L2 


A2E04684 




BC 


BNE,ER1A 




V1L2 


A2E04685 




CLI 


I0BUFF+21,C f X f 


[validity. 


V1L2 


A2E0A686 




BC 


BNE,ER1A 




V1L2 


A2E04G87 




CLI 


IOBUFF+22,C ff " 


]OF CARD. 


V1L2 


A2E04&88 




BC 


EME,ER1A 




V1L2 


A2E0A689 




CLI 


IOBUFF*26,C" ,f 


>ormat 


V1L2 


A2E0^90 




BC 


BNE,ER1A 




V1L2 


A2E04691 




HVC 


0(8>R2),IOBUFF+13 


MOVE 5/360 DEVICE TYPE 


VIL2 


A2E04692 




HVC 


8(3,R2),I0BUFF+23 


MOVE S/360 DEVICE ADDRESS 


V1L2 


A2E0%93 




HVC 


0(5>Rl),IOBUFF+7 


MOVE 1620 DEVICE TYPE 


V1L2 


A2E04&94 




BC 


B,REAQ1 


GO TO NEXT CARD 


V1L2 


A2E04695 


K1403 


BC 


C14Q3' 




V1L2 


A2EQ4696 


K144LN 


BC 


C'l^LN' 




VIL2 


A2E0^S97 


*DEV1 


CLI 


I0BUFF*19,X f FQ f 


(DELETED) 


V1L2 


A2E04S98 




BC 


1Q,DEV1B 


(DELETED) 


V1L2 


A2E04699 




BC 


15,DEV1C 


(DELETED) 


V1L2 


A2E047G0 


*DEV1B 


CLI 


I0BUFFU9,X'F2' 


(DELETED) 


V1L2 


A2E04701 




BC 


12,DEV1A 


(DELETED) 


V1L2 


A2E04702 




BC 


15,ER1A 

I0BUFF*12,X'4G f 


(DELETED) 


V1L2 


A2E04703 


*BEV1C 


CLI 


(DELETED) 


V1L2 


A2EG47G4 




BC 


8>BEV1A 


(DELETED) 


V1L2 


A2E04705 




BC 


I5,ERiA 


(DELETED) 


V1L2 


A2E0A706 


*DEV1A 


LA 


R2,DEVTAB 


(DELETED) 


V1L2 


A2EG4707 


* 


LA 


R1,DEVSHT 


(DELETED) 


V1L2 


A2EGA7G3 


*DEV3 


CLI 


0(R2),X f FF f 


(DELETED) 


V1L2 


A2E04709 





BC 


BE,DEV4 




(DELETED) V1L2 A2E04710 




CLC 


8(3,R2),I0BUFF+23 


DEVICE ALREADY FOU( DELETED) V1L2 A2EQ4711 




BC 


BE,DEV54A 




(DELETED) V1L2 A2E04712 


*DEV64A 


CLC 


Q(5,Rl),I0BUFF+7 
BE,READ12 




(DELETED) V1L2 A2EQ4713 




BC 




(DELETED) V1L2 A2E04714 




LA 


R2,11(R2) 
R1,5(R1) 




(DELETED) V1L2 A2E04715 




LA 




(DELETED) V1L2 A2EG47I6 




BC 


15,DEV3 

IOBUFFU2,X'40 f 




(DELETED) V1L2 A2E04717 


*DEV4 


CLI 


IS A 1624P PRESENT (DELETED) V1L2 A2EG4718 




BC 


BE,DEV64A 


YES, BRANCH 


(DELETED) V1L2 A2E04719 




CLI 


I0BUFF+2Q,C',' 


IS FORMAT VALID 


(DELETED) V1L2 A2E04720 




BC 


7,ER1A 


NO SEMD HESSAGE 


(DELETED) V1L2 A2E04721 




CLI 


I0BUFF+21,C'X' 




(DELETED) V1L2 A2E04722 




BC 


7SER1A 


IHV SEMD HESSAGE 


(DELETED) V1L2 A2E04723 




CLI 


I0BUFF+22,X'7D' 




(DELETED) V1L2 A2E04724 


* 


BC 


7,ER1A 


GO TO SEND HESSAGEC DELETED) V1L2 A2EG4725 




CLI 


I0BUFF+26>X'7B' 




(DELETED) V1L2 A2E04726 




BC 


7,ER1A 




(DELETED) V1L2 A2E04727 




HVC 


G(8,R2),I0BUFF+13 


HOVE DEVICE ADDRESC DELETED) V1L2 A2EG4728 




HVC 


8(3,R2),I08UFF+23 




(DELETED) V1L2 A2E04729 




MVC 


G(5,Rl),I0BUFF+7 




(DELETED) V1L2 A2E04730 




HVI 


5(R1),X'FF' 




(DELETED) V1L2 A2E04731 




HVI 


11(R2),X'FF' 




(DELETED) V1L2 A2E04732 




BC 


15,READ1 




(DELETED) V1L2 A2EG4733 


*DEV64A 


HVC 


G(5,Rl),I0BUFF+7 


HOVE 1624P TO SHORC DELETED) V1L2 A2EG4734 




HVI 


5(Ri) >X'FF' 




(DELETED) V1L2 A2E04735 




HVI 


0(R2),X'4Q' 




(DELETED) V1L2 A2E04736 




HVC 


1(1Q,R2),G(R2> 
11(R2),X'FF' 




(DELETED) V1L2 A2E04737 


* 


HVI 




(DELETED) V1L2 A2E04738 




BC 


15>READ1 


GOTO READ 


(DELETED) V1L2 A2E04739 


*READ12 


BAL 


15,NESSAG 




(DELETED) V1L2 A2E04740 




BC 


YL2CREAB13) 




(DELETED) V1L2 A2E04741 




BC 


15 > READ! 


GO TO READ 


(DELETED) V1L2 A2EG4742 


*DEV54A 


CLC 


I0BUFFH3(4),B1442 


TEST FOR 1442 


(DELETED) V1L2 A2E04743 




BC 


BE,BEV84A 


YES BRANCH 


(DELETED) V1L2 A2E04744 




BC 


15>READ12 


NO, SEND HESS DUPL 


(DELETED) V1L2 A2E04745 


*B1442 


DC 


C'1442' 




(DELETED) V1L2 A2EG4746 










A2EC4790 


DEVICE 


DC 


C 'DEVICE 1622R,1442R, T 




A2EG4795 




DC 


C DEVICE 1622R,254GR,' 
C f CEVICE 1622R>2520R,' 




A2E04OC0 




DC 




A2EG48G5 




DC 


C f DEVICE 1622R,25G1R,' 




A2EG4S1D 




DC 


C DEVICE 1622P,2540P,' 




A2E04315 




DC 


C DEVICE 1622P,1442P,' 




A2EG482G 




DC 


C* DEVICE I622P,2520P,' 




A2E04825 




DC 


C DEVICE 1443H, 140314,' 




A2E04830 




DC 


C ¥ DEVICE 1443H,1443!4,' 
C* DEVICE 1621R,2671R,' 




A2E04335 




DC 




A2EG4840 




DC 


C 'DEVICE 1621P,1442P>' 




A2EG4845 




DC 


C 'DEVICE 1621P,254GP>' 




A2E04850 




DC 


C 'DEVICE 1621P,252GP,* 




A2EG4855 




DC 


C 'DEVICE 1621P ' 




(DELETED) V1L2 A2EG4856 




DC 


C DEVICE 13110,2311A,' 




A2EG486Q 




DC 


C'DEVICE 13111, 2311B,' 




A2ED4865 




DC 


C DEVICE 13112, 23I1C>' 




A2EG4S7G 





DC 


C* DEVICE 13113,23110,* 
C f DEVICE 162QC1052T,* 


A2EQ4875 




DC 


A2E0488Q 




DC 


X*FF* 


A2E04835 


START 


DC 


C f START* 


A2E04890 




DC 


X*FF* 


A2E04895 




EJECT 




A2E04900 








A2E04905 






MESSAGES ERROR 


A2EG4910 








A2E04915 








A2E04920 


CPER 


EAL 


15,MESSAG 


A2E04925 




DC 


YL2(CPER1) 


A2E04930 




BAL 


R1>READTY SEND A READ COMMAND 


A2E04935 




BC 


15 > RETRY 


A2E04940 


CPER1 


DC 


FLl f 40 f 


A2E04945 




DC 


C* A235A * 


A2E04950 




DC 


C*CPU1 AND CPU2 T 


A2E04955 




DC 


CARE NOT COMPATIBLE 7 


A"E04960 




DC 


X*15 f 


A2E05G00 


PASTR 


DC 


FL1*35* 


A2E05005 




DC 


C* A234I * 


A2E05010 




DC 


C f INVALID T 


A2E05015 




DC 


C f CONTROL INFORMATION 1 


A2E05020 




DC 


X*15* 


A2E05025 


NCONTI 


DC 


FL1*23* 


V1L1 A2EG5026 




DC 


C f CANNOT CONTINUE' 


V1L1 A2E05027 




DC 


X'15* 


V1L1 A2E05028 


EMDSHi 


DC 


FL1 ? 2Q* 


A2E05030 




DC 


C f A232I f 


A2E05035 




DC 


C*END OF SIM2Q* 


A2E05040 




DC 


X*15* 


A2EG5045 


ENBEG 


DC 


FL1*22* 


A2E05050 




DC 


C* A241I * 


A2E05055 




DC 


C T END OF * 


A2E05060 




DC 


CREDITING* 


A2E05065 




DC 


X*15* 


A2E05070 


END16 


DC 


FLl f 32 f 


A2E05075 




DC 


C* A233D f 


A2E05C80 




DC 


C*DO YOU NANT * 


A2E05G35 




DC 


C 'ANOTHER FILE* 


A2EG5G90 




DC 


X*15 ? 


A2E05095 


S4AI 


DC 


FL1*18* 


A2E05100 




DC 


C* A242N * 


A2E05105 




DC 


C f k f AIT STATE* 


A2E05110 




DC 


X*15* 


A2E05115 


READ13 


DC 


FLl*42 f 


A2E05120 




DC 


C* A230I * 


A2E05125 




DC 


C* DUPLICATION* 


A2E0513D 




DC 


C f OF CONTROL * 


A2EQ5135 




DC 


C f INFORMATION* 


A2E05140 




DC 


X*15* 


A2E05145 


FEAT9 


DC 


FL1*30* 


A2E05150 




DC 


C* A231I * 


A2E05155 




DC 


C f NO INDEX ON * 


A2E05160 




DC 


C f THIS MODEL * 


A2E051G5 





DC 


X f 15' 




A2EG5170 


REA2 


DC 


FLl f 34' 




A2E05171 




DC 


C f A239A ' 




A2E05175 




DC 


CSIM2INF DEVICE NOT DEFINED' 


A2E05180 




DC 


X*15 f 




A2E05185 


MVT31 


DC 


FLP34* 




A2E05195 




DC 


C f A236A » 




A2E05200 




DC 


CSIH20UT DEVICE NOT DEFINED f 


A2E05205 




DC 


X f 15* 




A2E05210 


ENDTA 


DC 


FLl f 30 f 




A2E05215 




DC 


C f A240I 1 




A2E05220 




DC 


C'END OF TAPE ON 


SIM20UT' 


A2EG5225 




DC 


X'15 f 




A2E05230 


wm 


DC 


FLl'33 f 




A2E05235 




DC 


C f A237A * 




A2EG5240 




DC 


CSIM2IN DEVICE NOT DEFINED* 


A2E05245 




DC 


X'15 f 




A2E05250 


REA19 


DC 


FL1*34* 




A2E05255 




DC 


C f A238A f 




A2E05260 




DC 


C f SIH2COM DEVICE NOT DEFINED r 


A2E05265 




DC 


X*15 f 




A2E05270 




EJECT 






A2EG5275 


* 








A2E05280 






COHPARE CONTROL CARDS WITH TABLES 


A2E05285 










A2EQ5290 


COflPAR 


LR 


HR3,14R1 




A2E05295 




BCTR 


WR3,0 




A2E0530D 




STC 


HR3,C0HPA1H 




A2E05305 


COMPA1 


CLC 


IOBUFF(0),0(WR2) 




A2EG5310 




BCR 


8,15 




A2E05315 




LA 


14R2>0(NR2>HR1) 




A2E05320 




CLI 


GCWR2)>X'FF f 




A2EQ5325 




BC 


8>4(15) 




A2E05330 




BC 


15,C0HFA1 




A2E05335 






TABLES FOR COMPARISON WITH f EDIlFILE f INFORMATION 


A2E05340 










A2EG5345 


* 








A2E05350 


CPUTAB 


DC 


C f 1620/0' 


1620 STANDARD 


A2E05355 


CP1A 


D5 


6C 


1620/1 OR 1620/2 


A2E05360 


CAPACT 


DS 


6C 


1620/3,1620/5,1620/7 


A2E05365 




DC 


X f FF f 


END OF f CPUTAB* 


A2E05370 


FEATAB 


DC 


X f FF f 


FEATURES 


A2EG5375 




DS 


4C 


INDEX 


A2E05380 




DS 


5C 


INDAD 


AZE05385 




DS 


5C 


FLOAT 


A2E05390 




DS 


5C 


TRANS 


A2E05395 




DS 


20C 




A2E05400 




DS 


5C 


DIVID 


A2E05405 




DS 


5C 


DISKV 


A2E05410 




DS 


5C 


144LN 


A2E05415 




DS 


5C 




A2E05420 




DS 


C 




A2E05425 


DEVTAB 


DC 


X f FF* 


DEVICE 


A2E05430 




DS 


IOC 


CARD READER 


A2E05435 




DS 


11C 


CARD PUNCH 


A2E05440 





OS 


11C 


CONSOLE 


A2EG5445 




DS 


11C 


PRINTER 


A2EQ5450 




D5 


11C 


PAPER TAPE READER 


A2EG5455 




DS 


11C 


PAPER TAPE PUNCH 


A2EG546Q 




DS 


11C 


DISK 1 


A2EG5465 




DS 


lie 


DISK 2 


A2EG5470 




DS 


11C 


DISK 3 


A2E05475 




DS 


nc 


DISK 4 


A2EG548Q 




DS 


89C 




A2E05485 


DEVSHT 


DC 


K f FF f 




A2E05490 




DS 


4C 




A2E05495 




DS 


5C 




A2E05500 




DS 


5C 




A2E05505 




DS 


5C 




A2E05510 




DS 


5C 




A2E05515 




DS 


5C 




A2E05520 




DS 


5GC 




A2E05525 




DC 


C* f 




A2EG5530 










A2EG5535 


IOBUFF 


DS 

EJECT 


161C 


BUFFER I/O 


A2E05540 
A2E05545 










A2E05550 






SUBROUTINE TO READ 


SIM-20 FILE 


A2EG5555 










A2EG5560 




CHOP 


G>4 




A2E055G5 


REABSH 


SVC 


18 




A2EG5570 




DC 


CSIM2IN f 




A2EQ5575 




DC 


FL2 f 80* 




A2EG5580 




DC 


A(IOBUFF-l) 




A2E05585 




CLI 


I0BUFF-l>X f 07 f 




A2E05590 




BCR 


8,15 




A2E05595 




CLI 


lOBUFF-l^'Ol' 




A2E05600 




BC 


8,HVT1 




A2E05G05 




CLI 


IOBUFF-l,X f G3 f 
8, READSH 




A2E05610 




BC 




A2E05615 




BC 


15,KAI12 
15,HESVC4 




A2E05620 


HVT1 


BAL 




A2E05625 




DC 


YL2CHVT2) 




A2E05630 




BC 


15,NAI12 




A2EG5635 




EJECT 






A2E05640 










A2E05G45 










A2E05650 


* 




KESSAG SUBROUTINE WHICH SENDS MESSAGES 


A2EG5655 










A2E05G60 


* 








A2E05665 


HESSA6 


LH 


Rl»0(15) 




A2E05670 




LA 


R2,0 




A2E05675 




IC 


R2,0(R1) 




A2EG5630 




BCTR 


R2,0 

R2>HESSIOU 




A2ED5G85 




STC 




A2E05G90 




LA 


RI>1(R1) 




A2E0S695 




STK 


Rl>HESSI0+4 




A2E05700 




CHOP 


0,4 




A2E05705 




SVC 


18 




A2EG571Q 




DC 


C r SIH2HES ' 




A2EG5715 



HES5I0 


DC 


FL2*0 f 


A2EQ5720 




DC 


A(O) 


A2E05725 




CLI 


0(Rl),M f 07* 


A2E0573G 




BC 


6,2(15) 


A2EG5735 




BC 


15,HESVC4 


A2EG5740 




CHOP 


0,4 


A2EG5745 


READTY 


SVC 


18 


A2EQ575Q 




DC 


C f 5IH2C0H f 


A2E05755 




DC 


FL2 f 80 f 


A2E0576G 




DC 


ACIOBUFF-1) 


A2E05765 




CLI 


I0BUFF-l,X f Q7 f 


A2E05770 




OCR 


8,R1 


A2EG5775 




CLI 


IOB0FF-l,K f 01 f 


A2EG578Q 




BC 


8>REA18 


A2EG5785 




BC 


15,KAI12 


A2E05790 


REA18 


BAL 


15>MESVC4 


A2EG5795 




DC 


VL2CREA19) 


A2E05800 




BC 


15,HAI12 


A2EG58C5 




EHD 


BEGIN 


A2EG5310 








A2E05615 


* 






A2EG5820 








A2EG5S25 








A2E8583G 








A2EG5835 


* 






A2E05840 



